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Day 2 

Program Structure and Control 

Day 3 

Mass Storage Techniques 



Day 4 

I/O Programming 

Day 5 

Graphics Programming 
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NOTES 



NOTES 



DOCUMENTATION 

OBJECTIVES: 

Identify the correct 
manual to use 

Locate critical 
information efficiently 
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NOTES 



MRNURLS TEL 

HOW TO 



YOU 



Install the computer 
Install Memory/Interface 
Configure your system 
Test system components 
Write correct program lines 
Control devices with a program 
Correct program errors 
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SERIES 200 MRNURL 
STRUCTURE 

BRSIC Operating Manual 
BRSIC Programming Techniques 
BRSIC Language Reference 
BRSIC Interf aceing Techniques 
Extens i ons 



NOTES 
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BRSIC OPERATING 
MRNURL 

- F i rst manu a 1 

- Shows how to instal 1 and 
set up the computer 

-Used by operator thereafter 
-not the programmer- 



NOTES 
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NOTES 



BRSIC PROGRAMMING 
TECHNIQUES 



to" 



-The programmers "how 
-Structure programs 
- Save d at a 
-Chain programs 
-Program graphics 

-Problem -oriented approach 

-Programming examples 
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NOTES 



BRSIC LRNGURGE 
REFERENCE 

-The programmer's reference 

-Shows syntax required 

-Describes statements 
"technical ly" 

-Organized alphabetically 

-Includes Reference Tables 
at back 
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BRSIC INTERFACING 
TECHNIQUES 

-The system designer's "how-to 

-Use to learn to collect data 
and control devices 

-Describes how to 
—Program interface cards 
— Hand 1 e events 
-Control instruments 

-Organized by Task & Interface 



NOTES 
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EXTENSIONS 

-Specific programmer "haw-to" 
for language additions, user 
programs or both 

-Organized by task 



NOTES 
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NOTES 



UPDRTE1S 



-Correct outdated or erroneous 
info in manuals 

-Identify page #, revision t, 
revised text 

-Incorporate updates before 
using manuals ! 
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NOTES 



NHERE DO I LOOK ? 

-Setting memory board smi tches ? 

- S e 1 1 i n q interface board 
switches ? 

-What statements stcre ?*. 
data off the disc ,? 



1 C: 



ret r i eve 
of 



What are character 1 
subprograms ? 

How can I implement an N-way 
b r an ch ? 

What are al low able extensions to 
the LIST statement ? 

Houj many parameters allowed for 
CRLL ? 
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( BRSIC OPERATIONS 

Object i ves 

l.Set up and use an Autostart 
file 



2. Execute Live Keyboard 
Oper at i ons 

3 . Ed i t Prog rams 



NOTES 
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RUTOSTRRT 

Rutostart; Rut omat i cal 1 y star t 
running a user program at 
power-up t i me 

Four Elements: 
1 . Powe r-up 

2. "Boot" the Operating System 
3. LORD Program (RUTOST) 
4. RUN 



v_ 



Dl-14 



NOTES 
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note:s 



BOOT THE OPERRTING 
SYSTEM 

Prioritized: 

1 .DISC 

2. ROM (bui 1 t-in) 

R.If more than one O.S. the 
operator can select 

B.If no selection is made, 
priority by board address 
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NOTES 



LIVE KEYBOARD 
OPERRTIONS 

-While running a program the 
Series 200 still recognizes 
ke yp res ses 

-Program is normal ly unaffected 
and unaware of 1 i ve Kbd. 



5*L0G (1.85)/SIN (. 7? ) [EXECUTE 



CRT EXECUTE 
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fKEYBORRD FUNCTIONRL 
RRERS 



: i"**-* ■: v- '- w~ *. k ..J 



fe)j ^:-K 8y 4 fc :• ^ : . TOST 



JHu-,- 

t -«a.>ii ! h ■-,•..: 
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(Cnl-euta- 
I Keys 
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NOTES 



*"*""" 


SYSTEM 

DISPLAY DUMP 
FCTNS ALPHA 


KEYS 

DUMP 
GRAPHICS 


ANY 
CHAR 






EDIT 




ALPHA 




GRAPHICS 




STEP 






CLR SCR 




SET TAB 




CLR TAB 




STOP 






CLR LN 




RESULT 


PRT ALL 




CLR I/O 





NOTES 
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NOTES 



r 



EDITING KEYS 



INS LN I DEL LN 



RECHLL 



D 1 



INS CHR i : DEL CHR ! ! CLR--END 

1 : j 1 I 
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NOTES 



CURSOR CONTROLS 



L_. _ J 



^zy 



10 



PF 


30GRRM 

KEIYS: 

RESET 


CONTROLS 

COMMANDS: 
LIST 


PAUSE 


REN 




DEL 


RUN 








I 


CONTINUE 








ENTER 












EXECUTE 
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NOTES 



INDICRTORS 

Run Indicators 

Program running 
Program paused (waiting) 
Program stopped 
Waiting for keyboard input 
Keyboard execution 
10 Waiting -for I/O completion 

Knob Indicators 

I Scrolling 
«-» Sc ann i ng 



NOTES 



m 



7 
X 
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NOTES 



INS 


LN 


. 


"~H 


□ EL 


LN 








RECRLL 



EDITING FEATURES 

Insert Line Mode 

Delete Line at Cursor 

Recover last line 
executed or deleted 

3 H E H Cursor Keys 

1 ) Knob 

Insert characters at 
cursor 

Delete characters at 
cursor 

Ruto-repeat capability on keys 
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INS 


CHR 




DEL 


CHR 



NOTES 



PROGRRM EDITING 



Type 

GET "EDIT1" 



Press EXECUTE 



Press EDIT 



Press EXECUTE 



Rotate the KNOB 

(Rot ar y-Pu 1 se-Gene rator ) 

Scrolling 1 Scanning * 
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PROGRRM EDITING 

Line 100 should be 

100 F^RINT "Rny text will do" 

Line 110 should be 

110 PRINT "Your NAME here" 

Line 120 should be 

120 FRINT"Your RDDRESS here" 

Remove the exclamation marks, 
then press ENTER] 



NOTES 
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PROGRRM EDITING 

-Delete line 190,200 to 
eliminate the -first 
run-t i me error 

-Change the GOTO line number 
of line 150 to eliminate 
the second 
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NOTES 



STRRTING FROM 
SCRRTCH 

SCRRTCH R 
t 
"R" -For RLL 



EXECUTE 



EDIT 



EXECUTE 



10 
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20 

3 a 

4 
50 

6 

7 

S0 

90 

100 
110 
120 

130 
140 
150 
160 
170 
180 
190 

200 

210 
220 
230 
240 
250 
260 
270 
280 
290 

300 

310 



REM Com put at i on of Dept e c i at- i on 
R E M T h r e e c o m p u tat. i on m e t h o d s 



E n t e t- a 1 f o r S t t- a i g h t.-Line 

E n t e t" a 2 f o r D eel i n q E a 1 an 

E n t e r a 3 f o r S u m - o f - Y e at" s 

Method"'" , I 

Ent- er t he val ue " , V 

E n t- e r t h e n u m b e r o f y e at"- s " , 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
INPUT 
INPUT 
PRINT 
i 

ON I GOTO 160,196,220 
! 

PRINT " S t r a i q h t - 1 i n e m e t h o d " 
GOTO 240 

PRINT " D e c 1 l n l n g b a 1 an c e m e t- h o d " 
GOTO 240 

i 

PRINT " S u m - o f - y e ar s m e t h ,;. a " 
! 

LET J=0 

LET D1=V N 

LET F1=V-- <N*'. N+l :>-2> 

P R I H T " Y ear"," D e p r " , " V a 1 u e " 

LET J=J+1 

ON I GOTO 320,400,510 

! 

i 



in e t h 
e m e 
letho 



od" 

thod" 

d" 
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320 
330 
340 
356 
360 
378 
380 
398 
460 
410 
420 
430 
440 
450 
460 
470 
480 
490 

500 

510 
520 
530 
540 
550 
560 
570 
580 
590 
6 



REM St rai ght - 1 i ne met hod 
I 

LET V=V-B1 
PRINT J,D1,V 
IF J<N THEN 280 
STOP 

! 

i 

R E M D o u b 1 e d e c I i n i n g b a 1 an c e m s t h o d 



LET D2=<2^N)*V 

LET D2=DR0UNDCD2,6 

LET V=V-H2 

LET V=DROUNDCV, 6) 

PRINT J,H2,V 

IF J<N THEN 280 

STOP 



R E M S u m -of- y e ar ' s digits m e t h o d 
I 

LET F2=N-J+1 

LET H3=F1*F2 

LET D3=DR0UNDCD3,6> 

LET V=V-H3 

let v=hrounikv, s> 

PRINT J,H3,V 
IF J<N THEN 280 
END 



SPRCE DEPENDENT 

Keywords recognized regardless 
of case Cupper or lower case) 

Line Labels &. Variable Names 
are converted to initial caps 
and lower case, automatically 

Beware of misspelled keywords ! 



NOTES 
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NOTES 



NRMES 



Character restrictions: 

1. First character: uppercase 
letters, Dr characters with 
ASCII codes 1G1 thru 254 

2. Remaining characters: 

lowercase letters, numerals 
underscore, or characters 
with HSCII codes 161 thru 
254 



15 Character names 



: Var i ab 1 es 
Subp roqr arns 
Com 1 aEe 1 s 

Line labels 



13 Character n ames :Funct i ons 
10 Character names:Fi les 



v__ 
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NOTES 



BRSIC TERMINOLOGY 

Keywo rds 
GOSUB 

St atements 
LIST 150, 1000 

Proqram lines 

1 10 Loop : GOTO Loop 

Func t i ons 
SINCX) 

Express i ons 
50*5IN(X)/360*(SQR(Y)+Z) 



Commands 
REN 100 



EXECUTE 
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R BASIC REVIEH 

GET "REVIEW" [EXE CUTE] 



NOTES 



LI5T #7 01 EXECUTE 



Discuss the program 
Run the program 
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BRSIC DRTR 

REPRESENTATIONS RND 

OPERRTIONS 

Object i ves 

Select the optimum data type 
far appl ications 

Select the appropriate 
built-in operation or function 
that produces the desired 
results 

Dl-32, 



NOTES 
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NOTES 



THE FOUR DRTR TYPES 

Real (Floating Point Numbers) 

Integer C Whole Numbers) 

String (Characters) 

@Name (Data Paths) 
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NOTES 



NUMERIC 
REPRESENTATIONS 

(Real and Integer) 

- Canst an ts 

3. 141592G 

- Si mp 1 e Var i ab 1 es 

X, Index- -one, Va^ue 

-Rrray Variables 

R(I,J), VoltsCTi me, Range) 



D1--34 
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SIMPLE INTEGERS 

10 INTEGER Rlpha, Omega 
(Expl icit declaration) 

-Whole numbers only 
-IB bit representation 
-Two's complement number 
-Range; -32768 to +32767 
-Storage; 2 bytes 
-Speed: Fastest math 

Integer (value-10) 



NOTES 







a a 



^ 



a a a 



0:011 



r i le 

L _J 



Upper byte 



Lower byte 
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SIMPLE RERLS 

20 RERL Maximum, Minimum 
(Explicit declaration) 

-Default numeric representation 

-Whole number and fractional 
part 

-64 bit representation 

11 bit exponent CE+308) 

53 bit mantissa 
(15 plus digits) 

-Range: Rpprox +2E308 , +2E-308 

-Precision: 15 decimal digits 

-Speed: 2-5 times slower than 
i n tege r 

Dl-36, 



NOTES 
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NOTES 



RERL NUMBER 
REPRE5ENTRTI0N 



Sign 
BjjL 



M 



it 



E:<pt 



Byte 7 CMstn 



JDnfen 1 : -rMpnjt i ssk-s 



Byte S 



Mantissa 



Byte 5 



BytB A 



Mantrl ssa 



Byte 3 



Byte 2 



Mantttssa 



Byte 1 



Byte Ed-SB) 
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NOTES 



NUMERIC RRRRYS 

25 OPTION BRSE 1 

30 DIM Big_array( 100, 1000) 

35 INTEGER Twob i t ( -50 : 50 , 1 00 ) 

-Default is OPTION BRSE 
-Maximum 6 dimensions 
-Maximum 327G7 elements/ 

d i mens i on 
-Implicit lower bound 

(OPTION BRSE) 
-Explicit lower bound (-50:50) 

-Default 10 element, n-dimension 
RERL array unless explicity 
dec 1 ared 

Dl-38 
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RRRRY EXRMPLES 



10 DIM R(2,3) 
2 RC 1 ,2)=3. 14 
30 END 








1 
2 















3. 14 













10 OPTION BRSE 1 

20 DIM RC 19B1 : 
1984,4) 

30 RC 1 983 , 4 )=3 1 

40 END 

12 3 4 

1981" 

1982 

1983 

19B4 



NOTES 

























31 
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INTEGER OPERATIONS 

Rrithmetic Operators 

Integer arguments, integer 
result 

fl= B+C Addition 
R= B-C Subtraction 
R= B*C Mu 1 1 i p 1 i cat i on 

R= B DIV C Division Quotient 

R= B MOD C Division Remainder 



NOTES 



2 = 4 
9 DIV 
9 MOD 



+ Rema i nde r 
2 = 4 
2 = 1 



1 
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NOTES 



INTEGER OPERRTIONS 



2. Arithmetic Functions 



R= RBS(B) 
R= SGN(B) 
fl= INTO. 14 159) 



Fib solute value 
Sign (-1,0,13 
Integer part 



The integer value of any number 
is the next lower whole number! 

INTO. 14153) = 3 
INT(-3. 14159 ) = -4 



Dl- 
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NOTES 



INTEGER OPERATIONS 



3. Relational Operator; 



< 



< = 



> = 



IF R<B THEN Less thar 



< > 



IF ROB THEN Not equal 

IF R=B THEN Equal 

IF R>B THEN Greater than 



-Relation true: One 



- Re 1 at i on False 



_e ro 
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( INTEGER OPERRTIONS 

4. Logical Operators 

-RND, OR, NOT, EXOR 

IF NOT(fl>=B) THEN Less_than 

IF (R<B) EXOR (C<D) THEN 

On 1 y one less 

IF (R<B) RND (C<D) THEN 





R| 


D 









1 















1 





1 



OR 
B 








1 








1 


1 


1 


1 



B 


oth_ 


le 




^ 


DR 









1 










1 


R 


l 


J. _ 
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NOTES 



INTEGER OPERATIONS 

5. Binary Operations 

-BINRND, BINIOR, BINCMP, 
BINEOR, SHIFT, ROTRTE , BIT 

R = BINRND (B,C) 

R - SHIFT(B,8) 

IF BIT(R,2) THEN Bit set 

fl = ROTRTECB.-8) _ 



RHTFT — 1 1 1 ! 1 ! 1 1 1 1 1 i 


J. 




■i. 


rotrtfH 1 1 1 1 1 1 1 1 1 1 1 1 
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NOTES 



RERL NUMBER 
OPERRTIONS 

1. Arithmetic Operators 

Real arguments, real result 
+,-,*,/,' , MOD, DIV 
R = BtC 

2. Arithmetic Functions 

LOG , LGT , EXP , SQR , RBS , SCN , 
DROUND,RND, (RRNDOMIZE) 
R = EXP(B) 
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NOTES 



3 . Tr i gonomet r i c Functions 

SIN,COS,TRN,flSN,RCS,RTN,PI, 
DEG,RRD 

-Use EEG/RRD to set angular 
mode (degrees or radians) 
for trig functions. 
Default = RAD 

10 DEG 

20 IF RSNC1) = 90 THEN PRINT"YES" 
30 END 

L Dl-46 
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4 . Re 1 at i on a 1 Operators 

-RND, OR, NOT, EXOR 
IF NOT(R>=B) THEN Less_than 
IF (R<B) EXOR (C<D) THEN 

On 1 y_one_ 1 ess 
IF (R<B) RND (C<D) THEN 

Bo th_ 1 ess 

-Beware of tests for equality 
of two RERLs ! 





"1 


D 







1 











1 





1 





OR 
B 




^ 


DR 







1 









1 








1 










1 








H 








1 


1 


1 




1 


1 






Dl-47 



NOTES 



TYPE-CONVERSION 

Using Reals In Integer, Logical, 
&. Binary Operations 

-If the argument required is 
type INTEGER and a RERL is 
given, the number is 
automatically converted to 
an i nteger 

—If the argument required is 
type RERL and an INTEGER is 
given, the number is converted 
to a RERL 

From the keyboard, try: 

400*4 00 

400. *400 



EXECUTE 



NOTES 



EXECUTE 
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NOTES 



TYPE CONVERSION 

Hoiu do type-conversions affect 
a progr am? 



— They require time 

-They may not be obvious 

—If possible, perform necessary 
t y p e-con ve rsions explicitly, 
outside of prog rani loops 



m -*v 



NOTES 



GET "LOOP! I ME" 

Modify the timed program line 
to see the e f + e c t s of using 
Real vs Integer numbers for: 

-Binary functions 

-Rrray indexi n g 
-Trig functions 

-Integer operations (MOD) 
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"LOOPTIME 1 



1. Modify Line 130 to time various statements. Some examples are: 



130 A(0ne) = PI 
130 A(Four) = PI 
130 IF One THEN 140 
130 IF Four THEN 140 
130 Four = Five + Six 
130 One = Five + Six 



! Integer array index. 
IReal array index 
! Integer relational 
IReal relational 
IReal add, no convert 
IReal add, convert 



130 One = BINAND (Two, Three) llntgr opjntgrs. 
130 Four = BINAND (Five, Six) llntgr op, Reals 

2. Now GET "FINDMAX" and follow directions listed in the program. 



STRING DRTR 

Character represent at i an and 

manipulation with 8-bit 

alphanumeric data codes 
(see the reference manual 
ASCII table) 

1. St ring Constants 

2. String Variables (simple) 

3 . St r i ng Rr r ays 

4 . Subst rings 
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US ASCII Character Codes 



1 

ASCII 
Char 


EQUIVALENT FORMS 




ASCII 
Char. 


EQUIVALENT FORMS 




ASCII 
Char. 


EQUIVALENT FORMS 




Binary 


Ocl 


Hex 


Dec 


Binary 


Ocl 


Hex 


Dec 


Binary 


Ocl 


Hex 


Dec 


NULL 


I 100001)0 


000 


00 





space 


OO100O0O 


04c 


20 


32 


@ 


01000000 


1 111.) 


40 


1.4 


SOH 


1 1000001 


001 


01 


1 




t 


001001 '01 


041 


21 


33 




A 


01000001 


101 


41 


n5 




stx : 


( 1000010 


002 


02 


2 




" 


001001 ill) 


042 


22 


34 




B 


01000010 


10.2 


42 


'* 




ETX 


(10000 11 


003 


03 


3 




* 


00100c 11 


043 


21 


35 




C 


01000011 


103 


43 


■ ,7 




EOT 


( 10001 00 


004 


04 


4 




$ 


00100:00 


044 


24 


36 




1) 


01000100 


104 


44 


:>8 




ENQ 


( 1000101 


005 


05 


5 




% 


001001:11 


043 


25 


37 




E 


01000101 


105 ; 45 


i9 




ACK 


(00001 HI 


006 


06 


6 




& 


001001 10 


04 c 


2C 


38 




F 


01000110 


105 1 46 


.'() 




BEL1 


I 00001 1 1 


007 


07 


7 






00100 i 11 


04 7 


27 


39 




C. 


01000111 


107 ; 47 


)'l 




BS 


( oooiooi: 


010 


08 


8 




( 


OOlOlnDO 


05') 


2S 


40 




H 


01001000 


11(1 


48 


VI 




HT 


1 0001001 


on 


09 


9 




) 


001011:01 


05 1 


29 


41 




1 


01001001 


111 


49 


73 




LE 


1 00011)11 


012 


OA 


10 




* 


00101010 


052 


2A 


42 




J 


01001010 


112 


4A 


74 




VT 


1 0001011 


o i 3 


OB 


11 




+■ 


OOlOlcIl 


05! 


2B 


43 




K 


01001011 


113 


4B 


75 




FF 


1 0001 100 


014 


OC 


12 




i 


00101 100 


054 


2c 


44 




L 


01001100 


114 


4C 


76 




CR 


I 0001101 


1115 


OD 


13 




- 


00101 oil 


055 


21) 


45 




M 


01001101 


115 


41) 


77 




SO 


I 0001110 


016 


OE 


14 






00101110 


05c 


21. 


46 




N 


01001110 


116 


4E 


"8 




SI 


i 0001111 


017 


OF 


15 




/ 


00101111 


057 


2F 


47 







01001111 


117 j 4F 


79 




DLE 


( 0010(100 


020 


10 


16 







0011 111 00 


Obi: j 30 


48 




F> 


01010000 


120 50 


30 




DC1 


■001000, 


021 


11 


17 




1 


00110001 


061 | 31 


49 




Q 


01010001 


121 51 


-11 




DC2 


0010010 


022 


12 


IS 




2 


001 101 10 


062 32 


50 




R 


01010010 


122 ' 52 


32 




DC3 


1001001 1 


023 


13 


19 




3 


OOllOcll 


Obi 


33 


51 




S 


01010011 


123 53 


13 




DC4 


'0010100 


024 


14 


20 




4 


001 10 mo 


064 


34 


52 




T 


01010100 


124 1 54 


34 




NAK 


KM110101 


025 


15 


21 




5 


001 KM 01 


0b6 


35 


53 




U 


01010101 


125 55 


35 




SYNC 


10010110 


026 


16 


22 




6 


00110110 


ObC 


36 


54 




V 


01010110 


126 j 56 


86 




ETB 


■0010111 


027 


17 


23 




7 


00110111 


06 ~ 


37 


55 




w 


01010111 


127 57 


37 




CAN 


10011000 


030 


IS 


24 




8 


0011100 


071 


38 


56 




X 


01011000 


130 58 


38 




EM 


10011001 


031 


19 


25 




9 


0011 loci 


07: 


39 


57 




Y 


01011001 


131 59 


39 




SUB 


1001 Id 10 


032 


1A 


26 






0011100 


072 


3A 


58 




2 


01011010 


132 5A 


90 




ESC 


10011011 


033 


IB 


27 




; 


0011001 


07 1 


3B 


59 






01011011 


13.3 5B 


91 




FS 


1001110(1 


034 


1C 


28 






00111 0)0 


074 


3C 


60 






01011100 


134 : 5C 


92 




GS 


100111(11 


035 


ID 


29 






00111 01 


075 


311 


61 




i 


01011101 


135 ; 50 


9,1 




RS 


100111 10 


036 


IE 


30 




> 


00111 110 


071. 


3t 


62 






01011110 


136 1 5E 


94 




US 


10011 1 1 1 


037 


IF 


31 




> 


0011) : 11 


07 


31 


63 






01011111 


137 


5F 


9.') 




STD- 1 


1. 600.-, 1 

































EQUIVALENT FORMS 


Char. 


Binary 


On 


Hex 


D 


i( 


01 10000(1 
01100001 


141) 
141 


60 
61 


4 


• 


ill 100010 


142 


62 


* 




01 100011 


143 


63 


9 


ii 


01 100100 


144 


64 





" 


01 100101 


145 


65 




f 


01 1001 111 


146 


66 




9 


0! 100111 


147 


h7 


o 


h 


1101000 


150 


68 






11:101001 


151 


69 


o 


1 


0: 101010 


152 


6A 




k 


01101011 


153 


liB 






0:10] 100 


154 


<>C 




m 


01101 101 


155 


6D 




" 


01101110 


156 


OE 




" 


01101111 


157 


6F 




P 


11 11 10000 


160 


70 




4 


01110001 


161 


71 




' 


1111 10010 


162 


72 




- 


01110011 


163 


73 






01110100 


164 


74 




" 


01110101 


165 


75 




- 


01110110 


166 


76 




., 


01110111 


167 


77 




- 


on 11000 


170 


78 




v 


01111001 


171 


79 






1 111010 


172 


7A 




i 


01 1 11011 


173 


/H 




i 


Oi 1 11 100 


174 


7C 






OlllilOl 


175 


711 | 1 


- 


01 1 1 ] 110 


176 


71 


1 


DEL 


oil 11111 


177 


» 
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1. String Constants (Literals): 
"RBCde-F. . . 0123. . .#$*" 
"The quick brown fox" 

2. String Variables: 

DIM Name$C803 , Rdd r $ C 1 B0] 

t t 

(Dollar sign=string) (Max length o-f string) 

3. String Rrrays: 

DIM City_State$(50) C132] 

50 element array of 132 
character string elements 



NOTES 
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4. Substrings: 

Allow access to a specified 
segment of a string 



NOTES 



R$-Rddress$ C2G, 

St a r t i n g '! 
Character 
Posi t ion , 

B$-Name$(30) CI ', 

Rrrny Element 
Number 



50] 

I End ing 

Character 
t Position 

is: 
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NOTES 



Rlternate substring access 
R$-Rddress$ C2G; 25] 



Starting 
Character 
Pos i t ion 



5ubst r i ng 
Character 
Count 



Fo r ex amp 1 e : 

10 REDRES5$=" IB 1 1 W. 
20 PRINT Address $ CI, 
30 PRINT flddress$ CG; 
40 END 1GU 

W. Seventh 



Seventh " 

4] 

10] 
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NOTES 



Nouj add these lines: 

31 flddress$CG]="N. Forty" 

32 PRINT Address! 

33 Address$[9, 1 t]="Fif " 

34 PRINT Rddress$ 

L • ne 3 1: rep 1 ace d entire 

remainder o-f string 

Line 33; replaced only 

characters 9 through 11 
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STRING OPERATIONS 

1. Concatenation^. ): 

Building big strings from 
little ones 

Firsts = " John " 

L as t $ - "Bar 1 eye urn" 

Name$ = First$i" "&Last$ 

concatenate 
Nauj Name$ looks like 
John Barleycorn 



NOTES 
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String Length CLEN); 
Returns the number of 
characters currently in the 
string or string expression 
Length = LEN(String$) 

10 R$=" 1234567890123" 

20 PRINT LEN(H$) 

30 PRINT LENCX$) 

40 PRINT LEN(F)$ik"Text "&R$) 

50 END 



13 



3 



NOTES 
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NOTES 



3. String position (POS): 

Returns the location of one 
string within another. 

Syntax : 

Pos i t i on=POS( Look_ i n$ , Look_for$ ) 

Gi ven a string - - 



NIQ 



N|Q 



1 46 
Charactor Positions 



73 



PRINT POS <R1, "ENQ" > 

46 
PRINT POS (RJ[POS(Ht, ENQl + n.ENQ") 

23 



80 
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NOTES 



POS Cont i nued 

Ex amp 1 e 

10 RnsuerS = "NO" 

20 INPUT "Please enter YES or NO 
(NO is def au 1 1 ) "' .Rnsuer $ 

30 IF POSCRnsiuersJ, "Y" ) OR 

POS(Rnsuuers$, "y " ) THEN 100 

40 ! " NO " p rouess i ny 



100 ! "YES" process i ng 
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4. String relationals 

Strings are compared 
character - by - character 
according to the numeric 
values of their RSCII codes 
(Refer to the RSCII table) 



NOTES 



IF R$ > B$ THEN Greater 

If RnswerS <> "NO" THEN Maybe 
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RELRTIONRLS Continued 
Items of Note : 

a. Two "identical" strings of 

of unequal length are 
not equa 1 ! 

"YES" <> " YES" 

b. Uppercase characters have 

lower values than lower case 

"Computer" < "computer" 

c. String sorts almost always 

surprise you. 



NOTES 
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NOTE.S 



String -Numeric Conversions 
a. RSCII code of a character: 
X=NUMC "R" ) 

10 R$= "RBCDEF abode £" 

20 FOR 1 = 1 TO LE1NCR5) 

3 PRINT NUM(R$LI, Ij ) ,R$CI, 1] 

40 NEXT I 

5 END 



di-6; 



NOTES 



String-Numer ? c Conversions 

b. Character of an RSCII code: 
X$=CHR$ CE5 ) 

10 FOR X=0 to ?55 

20 PRINT CHRSCX) 

30 NEXT X 

40 END 

Why the b e e p ? 



A 



DI-6."- ; 
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String-Numeric Conversions 

c. Number from a string o-f 
numeric characters: 
X=VRL( " 123.45 EL0" J 

10 R$="May 15, 1973" 
20 PRINT VRLCHS) 
30 PRINT VRL(R$CPOS(R$, " 
40 PRINT VRLCRS CPOStRJ, " 
50 END 



)1 ) 
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NOTES 



String-Numeric Conversions 
d . String from a number: 
Pi $=VRL$CPI 3 

10 PRINT PI; "X" 

20 PRINT VRL$ CPI) ; "X" 

30 END 

NOTE: no leading blanks, 
no trailing blanks 
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NOTES 
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EXERCISE 1 

Write a program that accepts an input of the form MM/DD/YY and converts 
it to the corresponding month, day, and year in the form Month Day, Year. 
For example: 
Input= 06/21/81 
Output= June 21, 1981 

1. Use string array to hold the names of the months, then 
index into the array with the number of the month that 
was input. 

2. Use the POS function and substrings to extract the day 
and the year information from the input string. 

3. Consider the difference between the following two statements, 
where A$ is "ab/cd/ef" : 

X = P0S(A$, "/") 
Y = P0S(A$ [4] ,"/") 
X = 3, Y = 2 
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EXERCISE 2 



Write a search-and- replace subroutine that replaces all occurrences of 
a "seek for" string with a "replace with" string. The subroutine will 
look in a string array for strings to replace. Print out any string 
elements your routine modifies. 

Save your subroutine on disc (SAVE"TEMP") , then GET "SCH_RPL" , then 
append your subroutine to the end of the program SCH_RPL. Remember to 
include an END statement at the end of the program then try it out. 

Your subroutine's name : Search_replace 

The string array's name: Search_in$ 

Number of elements in Search_in $ : Num_elem 

Example Subroutine format: 

10 Search_replace : ! This subroutine searches for ... 
20 INPUT "Search string?", A$ 



110 RETURN 
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PROGRAM STRUCTURE 
FIND CONTROL. 

Object i ve : 

-Select appropriate program 

structure for a given 

algorithm 

-Write program segments to 
provide event response 

— Utilize debugging tools to 
analyze errant programs 



NOTES 
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RGENDR 

Program Control 

Dec I s i ens 
Br anch i ng 
Loop i ng 

Event Response 

Program Modules 

Bub rout i nes 
Subprograms 

Debugging Tools 



NOTES 
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NOTES 



STRUCTURED 
PROGRRMMING 

Three El ements : 

— Program Control 

Deciding what to execute 

-Program Structure 

Separating tasks into modules 
One module (black)-l problem 

- Iter at i on 

Executing a block o\/er 
and over 

Select the right tool for the job 
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NOTES 



PROGRRM CONTROL 

-Normal Execution: 

Linear ascending -order 
line # ' s 

10 BEEP 

20 WRIT 2 

30 BEEP 

40 END 
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BRANCHING 

(Changing the sequence) 

1 . Unconditional 
GOTO 1040 
GOTO Forced_exit 

2. Conditional (Decisions) 

IF Value>Limit THEN Too_big 

3. Computed 

ON Command GOTO P 1,P 2,P 3 



NOTES 
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COMPUTED BRRNCH 
NOTES 



NOTES 



50 ON Valuo GOTO 100,200,300,400,500 

-The ON statement causes a 
branch to the appropriate 
line. In this example, if 
Value =1 then the program 
goes to line 100. 

-What if Value=0 ? If VRLUE=G ? 



D2-6 
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NOTES 



CONDITIONAL BRANCH 

N T E L 



The IF k t d Le ;nen L L^sL^ -fur 

ion-ze-"o (T* ue) c - 2 e r o ( ' 



a 1 s e J 



NOTES 



-The IF statement a. 1 o lis an 
executab 1 e s taten-i n t. o r" an 
; mp lied GO 10 

if bitcp ; j the.n pfijse 

E >.. ecLt a;.: 1 c statement 

IF B>R THEN Gr >■;■■, a:e r 

I'npl led GO^O Greater 



C NDITIONR _ P R C G R R M 
Bl OCKi 

T u. c Conditions: 

1E0 Bits: ! P-int a number 

in b 1 n a r y 

110 FOR Count. = 15 TO 3 E5TEP-1 

120 IF BIT (Number , Count 3 THEN 
130 PRINT 1" : 1 True block 

140 ELSE 

150 PRINT ' ; : F" a I se b 'ock 

160 END IF 

170 NEXT Cou'-t 

160 PRINT 



-,y 



CONDITIONRL 


PROGRAM 




BLOCKS 








Mu ltiple Conditions 










100 


SELECT Funct lor 










1 10 


CRSE 1 










120 


Y=SINCX) I 


Funct 


"i on = 


= 1 




130 


CRSE 2 










140 


Y=COS(X) ! 


Funct 


i an = 


=2 




150 


CRSE 3 










1B0 


Y=TRN(X) ! 


Funct 


i on = 


= 3 




170 


CRSE 4 










1B0 


Y=EXP(X) ! 


Func t 


ion = 


-4 




190 


CASE ELSE 










200 


Y=X I 


Rnyth 


i ng 


e 


se 


210 


END SELECT 










Stn 


ngs can be self 


ict ed 


also 
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NOTES 



CONDITIONRL PROGRRM 

BLOCKS 

Multiple Ranges: 



NOTES 



100 SELECT 


Re ad i ng 






1 10 


CRSE 








120 


PRINT 


tt —r it 

Ze ro 






130 


CRSE 


TO 10 






140 


PRINT 


"Range 


OK" 




150 


CRSE 10 TO 2~E3 00 




1G0 


PRINT 


" Ove r r 


an qe " 




170 


CRSE E 


_SE 






180 


PRINT 


" Pa 1 ar 


i t y e 


rror" 


190 END SEL 


ECT 






Ch ar 


acte r 


r a n q e s c a n a 


! s o b e 


tes 


ted 
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EXERCISE 3 



Write a program that uses the SELECT CASE structure to write the 
binary representation of a number. You can take the basic contents 
of the IF/THEN/ELSE and modify it to be a SELECT/CASE if you wish. 



EXERCISE 4 

Write a program to input a string of mixed uppercase and lowercase 
characters then convert that string to all uppercase characters. Use 
the SELECT/CASE construct to determine whether the character being 
analyzed is upper or lower case, and subtract 32 from the ASCII code 
of any characters in the range of "a" to "z:. 

Input : Yes 
Output : YES 

Modify the program to either convert the string to uppercase or to 
lowercase characters, depending upon the value of some variable. 
For example: 

Function $ = "UPC" 
Input = no 
Output = NO 

Function $ = "LWC" 
Input = WILDERNESS 
Output = wilderness 

44 



CONDITIONAL FLOW 

CHRRTS (Program flow) 



IF-THEN-ELSE 



THEN 



A 
-ccondV 

T\ /? 



SELECT-CRSE 

CRSE X 



STMT 
BLOCK 



:lse 



STMT 
(BLOCK 



RRNGE 



END IF 



VRLUE 



□ r 



STMT 
BLOCK X 



CR5E Y J STMT 
H BLOCK Y 



CR5E Z 



STMT 
BLOCK_Z_ 



CASE H STMT 



\ BLOCK R 



CHSE B 3TMT 

- E --H B LOCK B 



CRSE ELS E 1 

I stmt] 

[BLOCy 
END SELECtF 
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NOTES 



ITERATION 

Iteration is repetitive 
loop execut i on 

Termination test can occur 
in one Cor more) cf 3 places 

1 . Test at end of loop — 
(always executes once) 

2 . Test at beginning of loop 
(may or may not execute 
loop) 

3. Test in middle of loop 

(at least part of loop is 
execu ted ) 

D2-12J 



NOTES 
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NOTI.S 



END-TES1 ITERATION 

(SPEC IRL CF5E) 

FOR Counter = I n i t " F -rial STEF 

Iriu re- en 1 



"N 



Statement Bio ■:: k 
NEXT Counter 

1 . R n initial test ; s fr> a d e to 
check if I '' i t exceeds Final. 
If so, the loop ; s 
never executed ! 

2 . L o o p is ter m i n a t e d i f C ounte r 
exceeds F i - - -a ! ui h e n N E. X T i s 
executed 



NOTE S 



END-TEST ITERPTION 

REVERT 

St atament Block 



UNTIL Cond i t i - n i.rw 

1 a o jc 



1 . T h e p r o cj r 
e x « c j I e d 



Term i n a t i c ~ test 
UN T J_ st a '. e merit 



a ! [J a V :.s 



CI V ^ - it 



EXERCISE 5 

Rewrite the program that prints out the binary representation of a 
number, but use the REPEAT/UNTIL method of iteration instead of the 
FOR/NEXT loop. 



STRRT-TEST ITERATION 

WHILE Condition true 



Statement b 1 ock 



END WHILE 

l.The program loop is only 
executed if the WHILE 
condition is true to start 
w i th 

2. Term in at ion test is at the 
WHILE statement 
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EXERCISE 6 

Rewrite the program that prints out the binary representation of a 
number, but use the WHILE/ENDWHILE method of iteration instead of the 
FOR/NEXT loop. (Or simply modify the previous REPEAT program.) 



NOTES 



MID-TEST ITERATION 



LOOP 



Statement Block 



EXIT IF Condition true 
["statement Block ; 

EXIT IF Condition true 
END LOOP 
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LOOP STATEMENT 

Part of the loop is always 
executed unless an EXIT IF 
statement precedes the loop 
st at ement 



2 „ Te r m i n at i on test is 
EXIT IF statement 



at the 



3 . Mu 1 t i p 1 e exit conditions can 
be programmed, as we 1 1 as 
multiple exit points to break 
up the loop 
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NOTES 



LOOPING CONSTRUCT 
PLOW CHRRTS 



LOOP 



STMT 
BLOCK 



T 




EXIT IF 



END LOOP 



WHILE 



ccond; 



END 
WHILE 



[ STMf~l 
— IBLOjCKJ 

REPEAT UNTIL 



! STMT 
LELQCK 



I 



COND> UNTIL 
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NOTES 
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NOTES 



PROGRRM MODULES 

-Subroutine - a shared program 
segment not having a separate 
program environment 
Cor context) 

-Subprogram - a separate program 
segment with its own local 
program environment (context) 
isolated from the main program 
and other subprograms 
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NOTES 



SUBROUTINES 

Segment o-F program 1 ines 
ending with RETURN 

Called (invoked) by executing 
GOSUB statement 

GOSUB 150 
GOSUB Beep . sub 
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100 GOSUB Count 



Rets 1 i ke 

i nserted 


1400 Count: FOR 1=1 TO 
14 10 5um=Sum+I 


10 


code 


142 NEXT I 

143 RETURN 





110 Next-line: PRINT Sum 
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NOTES 



SUBROUTINES 

Subroutine calls can be 
nested to any depth 

R subroutine can call itself 

Subroutine variables are not 
local (private), but are 
global to the main program 
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NOTES 
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NOTES 



SUBPROGRAMS AND 
USER FUNCTIONS 

Complete, separate program 

Local environment = "context" 
-Variable n ames 
-Key definitions 

— Line labels 

- Dat a sto r age 

SUB RND DEF FNUser 

(CRLL) CFNUsor) 
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NOTES 



SUBPROGRRMS 

-Program modules = "Tap-down 

progr ammi ng 

-Execute mini -tasks 

— Modules are desig n e d 

independent of calling 
program: interchangeable 
from program to program 
.". Libraries 
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SUBPROGRAM GEOGRRPHY 



Ma i n 
prog ram 



Varl == FNUser-1 
CRLL Module-1 
END 



Funct i on 
Subp rogr am 

"Sub " 

Subp rogr am 



DEF FNUser-1 

RETURN Result 
FNEND 

SUB Module_l 

SUBEXIT 
SUBEND 



NOTES 
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R simple: function 

1 ! Print Numbers and Squares 

10 FOR I = 1 TO 10 

20 PRINT I, FNSqr (I ) 

30 NEXT I 

40 END 

50 DEF FNSqr (X) 

B0 RETURN X * X 

70 FNEND 



NOTES 
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NOTES 



n SIMPLE 



SUBPROGRAM 



1! Print the reverse 

10 INPUT R$ 

20 CRLL Rev(P$) 

30 END 

40 SUB Rev(X$) 

50 FOR I=LEN(X$) 

B0 PRINT X$CI , I] 

70 NEXT I 

80 SUBEND 



of a string 



1 STEP -1 



D2 



NOTES 



SUBPROGRAM 
COMMUNICATION 

IN: 
Pass Parameters 
COM 

OUT: 

Pass Parameters 
RETURN value 
COM 
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PASS PARAMETERS 

-Pass Parameter List 

CRLL Sort.anray (Num_s 1 m, Rrr ay C* 3 , INTEGER Max 3 

I j 

-Formal Parameter List ~~i 

; i v 

SUB Sort„_array ( Rr r ay_s 1 ze , Srt _ary(*) , INTEGER Hi) 

-Parameter lists match: 
Pas i t i an 

Type CREAL, INTEGER, Array, String) 

Number 



NOTES 
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PRSS PARAMETERS 

Pass by Value (expression) 
-"Copy" = constant value 
— R 1 lows type-conversion 
—One-way only: IN! 

CALL Compare ( (Original ), (Final ), Res) 

V'VaTue ' By 1 R S f 

Pass by Reference 
-Pointer to the variable itself 

-Type-matching required 

-Two-way: IN and OUT 
CRLL Sort (Rrray(*), (Numb -el em)) 

By Ref By Value 

D2-30 
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NOTES 



PASS PARAMETERS 

By Value 
""Var i ab 1 e 



[Pno_g] 



Sub 



One ui ay -j ( Copy ) 
Par am 



By Ref erence 
_ Pr ^9]- -A/ar i ab 1 e 



Par am 

Sub L ! 



Two way 
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NOTES 



PRSS PARAMETERS 
EXAMPLE 

10 FOR 1=1 TO 10 

20 PRINT I; "In MAIN" , 

30 CRLL Md-fy(I) I Piss by Reference 

40 NEXT I 

50 END 

60 SUB MdfyCX) 

70 X=X + 2 

80 PRINT I ; "In SUB" 

90 SUBEND 

30 CRLL MdfyC ( I) ) ' Pass by Value 

D2-32 
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EXERCISE 7 

GET "VAL_REF" and run the program. See if you can figure out how the 
program looks by just studying its output. Can you explain the last 
block of output? What happened to I? 



LIST the program and see if it looks the way you predicted. Check the 
pass-by-value and pass-by-reference function calls. Look at the two 
functions and analyze how they affect their pass parameters. 



PRSS PRRflMETERS 

Required Parameters 

— CRLL and SUE! parameter 1 ists 

must match: number, position, 

type 
Optional Parameters 
-OPTIONRL separator 
—Type and position must match 
—Use NPHR function to determine 

number of parameters passed 
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NOTES 



OPTIONAL PRRRMETER5 



CRLL Dvm(@Vmtr 



00, . 005 ) 



SUB Dvm COName, Reed i rigs, OPTIONAL Oeloy) 

IF NPRR>2 THEN 

! Program Dvm f ■: r delay and 

! t a : --<e read i ngs 
ELSE 

! T a •< e readings only 
ENDIF 



EXERCISE 8 

GET "NPAR' and try running the program. See if you can analyze the 

problem. After you have the types matched, re-run the program. Be 

sure you understand the flow of the program before moving on to the 

next slide. (In the first call, C is an "optional" parameter. In 

the second call, the optional parameter was not passed, and the sub- 
program executed a cifferent statement block.) 

Which construct might be more appropriate for multiple optional 
parameters than the IF/THEN/ELSE construct? 
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COMMON 

Blank CON 

-Declared in main program 

-Accessible from subs only 

with matching COM statement 

-Types and position of 
variables must match 

-Names of variables needn't 
mate h 

COM Initlzd,X$[300] , INTEGER I, J 



NOTES 
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LABELED COM 

—Can be declared in subprograms 

not necessary in main 
— COM/n ame/mus t match to have 

access 
-Other requirements are same 

as b 1 ank COM 
—Provides unique, "private" 

storage space for subprogram 

between invocations 
COM/Private/X, Y,Z$ 
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EXERCISE 9 

GET "LABEL_COM" and run the program. Note what happened to variables 
A,B, and C across the main program and the two subprograms. What 
happened to A,B, and C after calling the first subprogram? 1 Was the 
main program able to access variables L,M, and N of the labeled 
common? (If it could, the values assigned to L,M, and N in the first 
subprogram would be printed by main after the call.) 

Was the second subprogram able to access all variables? 



NOTES 



EVENT RESPONSE 

Programmable r e sj? o nse t a 
real 1 1 me events 

Internal Ev ents 
Errors 
End-o-F— f i le (mass storage) 

External Eve nt s 
SFK's and Knob 
Interrupts & Timeouts 



D2-37 



60 



f EVENT RESPONSE 

End-of-Line Branching 

R test is made by the operating 
system after EVERY program line 
to see if an event has occured 
requiring service 

1050 Rrray (Index) = SINCIndex)] 

Test 

10B0 BETR = ENUser CRlpha)| 

Test 

1070 NEXT Index,, 



Test 
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NOTES 



EVENT RESPONSE 

-If an event has occured, and 
the program has defined the 
end-of-line branch, that 
b r anch is t aken 

ON ERROR GOSUB Recover 

-ERROR is an e vent , and GOSUB 
i s a response 

-The user program defines and 
controls end-of-line branches 



NOTES 
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NOTES 



EVENT RESF D ONSE 



Response Techniques 
GOTO 
GOSUB 
CRLL 
RECOVER 

Response Control 
ENRBLE/DISRBLE 
Priori ty 
Context 
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NOTES 



EVENT RE5F D 0N5E 

What is RECOVER ? 

ON ERROR RECOVER Rbortall 

- RECOVER is a GOTO 

-RECOVER restores the program 
context to the point where it 
was defined 

-RECOVER remains active even 
though context changes to a 
subprogr am 
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SYSTEM PRIORITY 

-Normal (default) priority=0 

-Rn event with a higher priority 
can cause an immediate branch 
( response ) 

-System priority becomes the 

priority assigned to the event 

-System priority remains set at 
the new priority until exiting 
the service routine -For the 
event 

— A "GOTO" type response does 
not change system priority 
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NOTES 



PRIORITY/CONTEXT 
THBLE 

Will an immediate branch be taken? 



NOTES 



Branch type 


Re 1 at i ve 
Event 
Prior Ity 


Execut i ng 
Main B 
Proqram 


Execut i ng 
Subprogram 


GOTO 


Lower 


NO 1 


NO 2 


Higher 


YES 


NO 2 


GOSUB 


Lower 


M01 


NO 2 


Higher 


YES 


NcT 2 " 


CRLL 


Lower 


NO 3 


NO 1 


Higher 


YES 


YES 


RECOVER 


Lousr 


MC^T 


NOl 


Hi gher 


YES 


YES 



1. Branch Is deferred until system priority drops 

2. Branch Is deferred until main context Is 

restored 
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NOTES 



SPECIRL FUNCTION 
KEYS 

Define custom responses to 
SFK keypresses 

Rssign so-Ft 1 abels to key 
1 abe 1 areas 

Very friendly user interface 
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NOTES 



SPECIRL FUNCTION 
KEYS 

Can assign system priority 
to key service 

Ex amp 1 e 

ON KEY 4 LRBEL "Restart", 11 

GOSUB Key_4 

Significant programs should 
have a "bail-out" SFK 

ON KEY 9 LRBEL "Abort" , 15 

RECOVER Crash 

No-te: ON KEY snrvico is temporarily disabled 
by INPUT, LINPUT! 
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EXRMPLE KEYS MENU: 

ON KEY LRBEL "Next" GOSUB 500 

ON KEY 1 LRBEL "Prev" GOSUB G00 

ON KEY 2 LABEL "Yes" GOSUB Yes 

ON KEY 3 LRBEL "No" GOSUB No 

Next | [p^bT] J Yes] \ No 1 [^ J 



LZZI 



czj 



-Subprograms can redefine keys 

for their own purposes 
-Sub exit restores previous key 

def i n i t i ons 

D2-46 



NOTES 



EXERCISE 10 

GET "KEYS1" and list the program. Note how the special keys are set 
up, labels defined, and priorities established. Note especially what 
happens in Sub3: a key is re-defined with a new priority, label, and 
response. Run the program and try various combinations of keys, 
noting which keypress get immediate response, and which ones are 
deferred. Try pressing a key twice to see if it's service routine 
is executed twice (watch the counter). 
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EXERCISE 11 

GET "PRIORITIES" and list the program. Note the key redefinition in 
PrilO. Will pressing K4 while PrilO is executing cause an immediate 
branch to Pri 14? 

Run the program. Press KO, K2, and K4 in rapid succession. Can you 
explain why K2 caused an immediate response while K4 did net? Why 
was the Priority 14 subprogram executed before returning back to 
the Priority 5 subprogram? 

Try pressing the K5 "GOSUB" key from the main program. Now try 
pressing it from any of the subprograms. Why is K5 service deferred 
even though it has the highest priority? Can any of the subprograms 
interrupt the priority 15 subroutine service? 



NOTES 



KNOB RESPONSE 

-Define program response to 
knob rotation 



-Knob service occurs at 



specified interva 
has rotated 



f the knob 



- KNOBX function prov 'des access 
to knob's degree and yelnclty 
of rotation 

-Very friendly user interface 



v_ 
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KNOB RESPONSE 

-Can assign system priority 
to knob service 
Ex amp 1 e : 

ON KNOB .1,8 CFILL Knobsvc 

t ^ - 

Prior i Xy — B 
.1 second interval 

-Program can access the state 
of SHIFT and CONTROL keys and 
redefine response accordingly 
"STATUS 2, 10; Temp 
IF BIT (Temp.ED THEN Shifted 
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NOTES 



EXERCISE 12 

Write a program that responds to knob rotation and executes BEEP 
with varying frequencies depending on the degree of rotation of 
the knob. 

Hints: 

1. Use absolute value of KNOBX. 

2. You may need to multiply the result of #1 above by 
10 or so to obtain suitable values for BEEP frequen- 
cies. 

3. Use the reference manual to look up statement syntaxes, 
if necessary. 
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NOTES 



ERROR RECOVERY 

-Set up a user-programmed 
response to errors 

—Deal with operator mistakes in 
a "-friendly" manner 

ON ERROR GOTO Rcvr_l 

Can be GOTO, GOSUB, CRLL, RECOVER 



D2-49 



NOTES 



ERROR RECOVERY 

ER RL : Boolean test for line 
number or line label 
o-f error 

ERRN : Return the most recent 
error numbe r 

In Use: set up separate 

ON ERROR -For each 
possible critical error 
1 oc at i on 

(CRERTE, RSS1GN, etc.) 
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10 


ON ERROR GOTO Error 


20 


INPUT 


"SELECT 1 , 2, or 3",X 


30 


ON X GOTO One , Two , Three 


40 


Error: 


IF ERRLC30) THEN 


50 


PRINT 


"Please enter more 
careful 1 y " 


60 


ELSE 




70 


PRINT 


"Unexpected error" 


80 


STOP 




90 


END IF 




100 


GOTO 10 




1 10 


One : 
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NOTES 



ELEMENTRL CONTROL 

Temporary Halts: 

Timed: WRIT 
WRIT 50 ! 50 seconds 

Operator-controlled: PRUSE 
PAUSE ! CONTINUE key 



NOTES 
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NOTES 



ELEMENTAL CONTROL 

When I say "WHOfi" I ^e an "Whoa 

Program Temi nation: 
-STOP requires RUN t u restart 
program 

- End is same as STOP but 1 t 
also d e 1 i m t s man p r <:., g r a m 



"\ 



NOTES 



DEE JCG- NI- 

When all els;- f a i 1 > . . . 
-Use ON ERROR tor : ]MCf + y! 
progra rr r e u v e r y 

-Put PRINTs all o-. ■.-. r ihr place 
Subprogr ar-s 
f OR -NEXT oops 
Key "" /•"' s * . a. X n n e r is 

-Turn FR INTRO, on 



_> 



DEBUGGING 

If you still cannot believe 
what you're seeing.., 

1. STOP/RESET and EDIT calls 

executing line into display 

2.TRRCE FILL 10,9999 
— Line numbe rs 
-Variable assignments 
-Display or PRINTRLL printer 



NOTES 
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DEIBLJGGING 

TRACE PAUSE Line_l abel 
Executes PRUSE before 
executing specified line 



) 



NOTES 



(Waits for { CON TINUE 

TRACE OF"F 
Cancels all trace activity 

Insert TRRCEs as program 
1 ines or execute from 
keybo ard 
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NOTES 



DEBUGGING 

5 . STEP your program 

Use 1 i ve keyboard to check 
values of variables 
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MRSS STORAGE 
PROGRAMMING 

Object 1 ves : 

-Save and retrieve programs, 
subprogr ams 

-Save and retrieve data 

-Emulate I/O devices 



NOTES 
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MRSS STORAGE 

(Rn Electronic Filing Cabinet) 

Mass Storage Devices 
-Floppy disc drive 

- Mag t ape d r i ve 
-Hard disc drive 

Mass Storage Media 
- F 1 oppy discs 

— Magnetic tape 
-Disc platters 



NOTES 
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NOTES 



MEDIR SPECIFIER 1 

" :INTERNRL,4,0" 

-Indicates the device/media 
to use -for a mass storage 
operation 

String expression including 
colon and mass storage unit 
specifier ( ms us ) 

Media* = " : " & " HP98 35 , 700 , " 
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NOTES 



UNIFIED MRSS STORRGE 

— Identical statements car': access 
different devices 

-System designer has flexibility 
without r i s k of soft u; a r e 
i ncumpdl ib i 1 it/ 

—Requirement: one statement to 
redirect al 1 mass storage 
operations 
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UNIFIED MRSS STORAGE 

MASS STORRGE IS Media* 

-Defines default (implicit) 
mass storage device 

— Can be overridden by an 

explicit device specifier 



MRSS STORRGE IS 
MRSS STORRGE IS 
MRSS STORRGE IS 
MRSS STORRGE IS 



HP82901 ,70? ,0" 
HP9895,?00" 
REMOTE" 
CS80.700, 1 " 
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NOTES 



THE FIRST OPERATION 

-Rll magnetic mediia must be 

initialized before first use 



NOTES 



INITIALIZE ": INTERNRL, 4 , " 

R disc need be initialized only 
once. It is then ready to 
store programs and data 
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NOTES 



PROGRRM STORAGE 
STATEMENTS 



STORE 




RETRIEVE 


STORE 


; 


LORD 


RE-STORE 




LORDSUB 


SRVE 




GET 


RE-SRVE 






STORE BIN 




LORD BIN 


RE-STORE 


BIN 
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NOTES 



RN EXAMPLE STRTEMENT 

STORE "TRIRNGLE" 

t 

Program -file name 

-The program file name 

identifies the program being 
stored in a "file" 

(Think of a filo faldor) 

-The file name must be unique 

(Think of a file folder label) 
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FILES 

(Electronic file folders) 

Used to store related 

information: program code 
mailing lists, instrument 
read i ngs 

Each file is given a unique 
name of up to 10 characters 



NOTES 
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FILE SPECIFIERS 

R file specifier consists of 
a file name plus an optional 
protect code plus a media 
specifier 

Ex amp 1 e : 

"PROGKSE> : INTERNRL" 

t I 1 

ft Is name protect code media, specifier 

Name$&." < " &Pro tec t $& " > " 



NOTES 
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noti:s 



FILE TY :: 



"N 



_.. T yp e 
PROG 



Contents 



ASCII 



Prog r am 

RSCII source 



BDRT 

BIN 

SYSTEM 



Cons true t 



Interna' STjRE 
Program Code RE-STORI" 



SAVE 
RE SRVE 



bt r i n g oi-ta y rp y T 



Data 

Binary 
Program 

Opo rat : ng 

System 



CRER'iE BDHT. 
OUTPUT 

— i- 

STORE BIN 

_ i 

■Copy" 
Ut ! i t y 



To 
Ret r 1 ays 

LORD 
LORDSUB 

GET 
ENTER 

ENTER 
LORD BIN 

Boot SystBm 
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NOTES 



PROGRRM STORAGE 
SPECIFICS 

STOREcreates a PRO'Hile and 
writes program arJ h 1 n a ?- i e s t o 
the file in i r z e r - 1 a '- f a r m 

RE-STORE does a STC-JE. , then 

removes old f i 'e .if iQ-ns nanrs 

from diSC (ussri to upn.tte PROG files) 

store !, mr:n i " 

RE-STORE ' MP] >i ! ' 



STORE "SUL 



:-) P <■ ■ 



7 90, : 
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PROGRRM STORAGE 
SPECIFICS 

- SRVE creates an HSCIIfile and 
writes all or part of the 
program to the file as data 

-RE-SRVE does a SRVE, then 

removes old f i le of same name 
from the disc (Update) 

SRVE "EDITOR" 

RE-SRVE "EDITOR" 

SRVE File_name$ 8. Media* 
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NOTES 



STORE vs. SRVE 



store 



SRVE 



Internal format 


ASCII source format 


PROG -file 


RSCII f 1 le 


Ent 1 re program 
plus b i nar i es 


Rl 1 or p art of 
program on 1 y 


3626 readable 
on 1 y 


Compat i b 1 e ui i th 
other devices 


Not access 1 b 1 e 
as data 


Accessible Just like 
ASCII date 


Fast Slow 



NOTES 
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EXERCISE 13 



GET "PRIORITIES" and edit the program. 



Use combinations of SAVE, GET, and STORE to build two files from the 
program: one file the main program, the other file the key-service 
subprograms. 

PRIORITIES 

Main" 
(SAVED file) 




"Keysubs" 
(STORE 'D file) 



The challenge here is to determine how to produce a STORE 'd program file 
of just the key-service subprograms. You will be using these files in a 
short time. 
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PROGRRM RETRIEVRL 
SPECIFICS 

-LORD brings a PROG -F i 1 e into 
memory replacing any program 
and variables already resident 
except -For COM 

-You can specify execution to 
automatically begin at any 

1 i ne 

LORD "MRIN_1", 10 

LORD "MRIN„2", Start_up 
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PROGRRM RETRIEVRL 
SPECIFICS 

— GET reads, syntaxes, and stares 
an ASCII file into memo ry , 
replacing all variables except 
those i n COM 

-GETcan overlay all or part of 
the resident program 

GET 'RERD DRTR', Rdd_ooda, Run_11ne 
GET "NEXT prog", Last_llne, Next_l1ne 
GET Ft le$, 1, 1 
GET "TRIANGLE" 
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NOTF.S 



SUBPROGRAM 
MANAGEMENT 

-DELSUB and LORDSUB al low 
deletion and addition of 
subprogram segments. Variables 
are not affected. 



Build large, modular programs 

DELSUB Bui ld_ array, Save array 
LORDSUB RLL FROM " PLOT . RRRRY " 
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EXERCISE 14 

SET "Main" , the main-program file you saved previously, and modify it 
so that the program will run correctly. (You should need only to insert 
one line to be able to run it.) Be sure to re-save your main program if 
you want a running example for posterity. 
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LORD vs 

LORD 


GET vs 
GET 


LORDSUB 

LORDSUB 




PROG file 


HSCII file 


PROG file 




Var 1 n.b les 1 os t 
except COM 


Var I ab 1 es 1 ost 
except COM 


R 1 1 var 1 ab 1 as 
unchanged 




Ent 1 re 

Program 


H 1 1 or part 
of program 


Subp rogram 
Segment Cs ) 




Fast 


S 1 QUU 


Fast 
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NOTES 



EXERCISE 15 

GET "GETLOADSUB" and list the program 

Before running the program, try to predict what the values of the variables 
will be when the PRINT statements are executed. Run the program. Did it 
do what you expected? 
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NOTHS 



FILE MANAGEMENT 

General-purpose -file management 
and maintenance tools: 

-File Directories (CRT) 

-File Protection (PROTECT) 

-File Deletion (PURGE) 

-File Renaming (RENAME) 

-File Copying (COPY) 

- Di sk Packing ( Ut 1 1 i ty ) 
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note:s 



FILE DIRECTORIES 

Directory: a table of information 
of all existing files on an 
initialized med i a 



FILE NRME 


PRO 


TYPE 


REC/TILE 


BYTE/REC 


RDDRESS 


FBRCKUP 


* 


PROG 


42 


25G 


65 


CBRCKUP 




PiSCII 


56 


256 


10? 


TRIRNGLE 




PROG 


4 


256 


163 


READINGS 




BDRT 


150 


256 


167 
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RCCE5SING THE 
DIRECTORY 

- CRT lists med i a -File directory 
i nf o rim at i on 

-Unrecognized file types are 
listed as numbers 



CRT 
CRT 



NOTES 



INTERNRL" TO #701 
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PROTECTING PILES 

PROTECT of fers uur i t e-p ro tect 
capabilities for PROG, BIN, 
BDRT f i 1 es 

Old protect codes can be updated 
or removed 

PROTECT "FINRL", Protect $ 
PROTECT "Main<OLD>", "NEW" 
PROTECT "MRIN<OLD> " , " " 



NOTES 
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NOTES 



DELETING FILES 

-PURGE deletes the directory 
entry for the specified file 

-To purge protected files, 

include the file specifier's 
protect code 

PURGE "REV J : INTERNRL" 



\ 
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NOTES 



RENRMING FILES 

RENAME changes the name of the 
specified file 

To rename protected files, 
include the old file 
specifier's protect uude 

RENRME "REV. 2" TO "FINRL" 
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so 



DRTR STORRGE RND 
RETRIEVAL 

File St ructure 

File Types 

Recess Methods 

End — o-F-F i 1 e Detection 

Control and Status 



NOTES 
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FILE STRUCTURE 

-R -file is composed of one or 
mo re records 

■There Eire three record types 

Phys i c a 1 record 
De fined record 
Log ical record 



NOTES 
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NOTES 



PHY5ICRL RECORDS 

-Length of a physical record 
is defined by the media when 
initial i zed 

DISC:25G bytes per record 

-Physical record is minimum 

i n-Fo r mat i on transfer between 
operating system and media 

-Fixed length records 



V. 
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NOTES 



DEFINED RECORDS 

-Length o-f a defined record is 
set by the user when creating 
a BDRT file 

-Length of a defined record 
should be appropriate for 
accessing a convenient or 
logical "chunk" of data 

-Fixed length records 
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LOGICAL RECORDS 

Length o-f a logical record is 
set by the format and content 
of data being stored 

Length of a logical record may 
vary from record to record 

Variable length records 



D3-29 



NOTES 



FILES RND RECORDS 

Def i ned records : 

« F i 1 e > 



Def i ned 
Record 
I I I I 
Physical records 



Dof i ned 
Record 



Def i nod 
Record 



1__L 



Log i c a 1 reco r ds : 
« F i 1 e _ 



Logical 
Record 



Log ica 1 
Recor d 



Physical records 



i_L_J 



1— I— f- 



L c °ir 

Record 



Log 1 cal 

Record 
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NOTES 



r 



EXAMPLE RECORDS 



— Data: Mai ling list, 5 names and 
addresses 

-Defined Record: 2 00 bytes 

(maximum entry length) 

-Logical Record: One name and 

address 

Logical Record Logical Record Logical Record 



Namel , Rddr 1 



Name2,Rddr2 NameS , Addr3 



pefined Record De-fined Record Define^ Record 
Physical Record Physical Record 



D3 
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NOTES 



PILE TYPES 

Four BRSIC file types: 

File Typo Record Typr-s 

"PROG I Not meYnTngf u 1 



BIN 



Not me an i ngf u 1 



ASCII Log i cd ! Recur da 

BDRT Defined Records 
Logical Records 
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TILE rcce:ss methods 

-Sequential access: start at 
beginning of -file and access 
each successive record in turn 

—Random access: access any 
specified Defined Record 

RSCII: Sequential access 
BDRT: Random access 



NOTES 
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EILE ACCESS 

-I/O Path: a pathway for data to 
and from a data file 
Specified as an "@Name" 

-Declaring an I/O path 

automatically creates an 

associated table of 

information to inform the 

operating system of I/O path 

characteristics: 

File type, File size, Pointers 
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NOTES 



FILE RCCESS 

I/O Path Name: 
-Typed variable - 100 bytes 

-Can be passed to subprograms 
and user --functions: pass by 
reference only 
CALL Test C@Dvm, Rrray(^)) 

-Can be al located in COM: 
COM @Dvm, Function, Range 
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NOTES 



FILE nCCESS 



1 . Create -File 



WRITE 
2 . Open -File 

(Assign I/"0 path) 

3 . Wr i te data 
4 . C 1 ose -File 



RERD 
2 . Op en file 

(Assign 1^0 path) 

3 . Re ad data 
4 . C 1 ose file 
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FILE ACCESS: CRERTE 

CRERTE est ab I i shes a -file of the 
desired type, length, and 
characteristics an the media 

CRERTE RSCII "Dat al " , 100 
CRERTE BDRT "Data2",100 

More on CRERTE and file types, 
1 ater 



NOTES 
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FILE ACCESS: OPEN 

- RSSIGN estab 1 ishes an I/O path 
for a specified file 

-Multiple I/O paths can be set 
up for a given file 
(if necessary) 

RSSIGN ©File TO "DRTR1 " 



NOTES 
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NOTHS 



FILE RCCESS: WRITE 

■OUTPUT writes data to the 
specified I/O path 
(Assigned to the desired file) 

OUTPUT ©File ; H . B , X ( * ) 
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NOTES 



FILE RCCESS: RERD 

ENTER reads data from the 

specified I/O pati 

(Assigned to the appropriate 
file; 

ENTER (S~i le ; I , J , rl ( x ) 



"A 
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FILE HCCES5: CLOSE 

■RSBIGN TO x closes the I/O path 
for the specified file 

■ Th ere are other implicit 

me thods of closing the file 
(Language Reference p. 13) 

RSSIGN @Fi le TO * 



NOTES 
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RSCII FILES 

- Cr e ated by: 

(RE-OSRVE for programs 
CRERTE RSCII for data 

-No defined records 

-Sequential access 

- End-of -F i 1 e is a specific 
character 

-Compatible and transportable 



NOTES 
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NOTES 



DRTR COMPATIBILITY" 

-LIF= Logical Interchange Format 

-LIF is an HP disc format 

standard that de-Fines the 
structure o-f the disc 
directory and RSCII fi 1 es 

-Provides Pi S C 1 1 data 

transportabi 1 ity between 
computers, terminals 
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NOTES 



( RSCII DHTR FILLS 

Storage requirements: 

1 . Rll data is converted to 
RSCII characters 
(string data) 

E. Each d at a item requires 

2 bytes overhead (length) 

+1 byte per character 
(including all significant 
digits) 

+1 byte if number of 
characters is odd 
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CREATING nSCII 
DRTR FILES 

- CRERTE flSCII reserves space on 
the disc -for a file o-f the 
specified number of physical 
records (2 5G bytes each) 



NOTES 



CREATE RSCII "DRTR1 



100 



D3-45> 



USING nSCII DRTR 
FILES 



NOTES 



10 CRERTE RSCII 
20 RSSIGN ©Name 
30 OUTPUT ©Name 
40 OUTPUT ©Name 



"TEST", 10 
TO "TEST" 
; "ED", "SUE" 
■ "RLVIN" 



50 RSSIGN OName TO "TEST 



C$ 



60 ENTER @Name ; fl$, B$ , 
70 PRINT R$, B$, C$ 
80 END ! Implicit Close-Pile 
ED SUE RLVIN 
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NOTES 



RSSIGN S Name TO "TE ST" 
EOF 



OUT PUT @Nonie ; - ED - , "SUE 



[ 2 ;E : Dj 3 |S|U|E 



EOF" 



OUT PUT BN am a ; , RLVIN" 
2 jE;D 3 [siu]e[ ' 5 ]flT|_ V ; I In EOF 



ASSIGN 9Nnmc TO "TEST" 

TJT7TT, 



2 E : D 3 SUE 



5 !R;L Vil.N EOF 



L __/ 



ENTER SNama ifl*.,.B*j.. c * 

[~2 'E d| 3~ |s Tu [e] . 5 IrIl v[l!N, I EOF 

I L i I 1_.J I L J : -X 
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NOTES 



RDD THIS FILE 
UPDRTE: 

80 RSSIGN OName TO "TEST" 
90 OUTPUT OName: "HI" , "BYE" 



2 Hill 3 B 



3 1l! e 



EOF !fl L V IN EOF 



100 RSSIGN ©Name TO "TEST 
110 ENTER SNamejRS, E3 $ , C $ 
120 END _ ERRQR 5g „ 

End of file found 
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SERIRL UPDRTE 1 

-One — f i le update 

-Read in, update, write out 
ent ire file 

10 RSSIGN ©Name TO "OLD" 
20 ENTER @Name ; fi$,B$,C$ 
30 B$ = "New name" 
40 RSSIGN @Name TO "OLD" 
50 OUTPUT ©Name ; fl$,B$,C$ 
G0 ENID 



NOTES 
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SERIAL UPDATE 2 

- Two-f i le update 

-Read in logical records one at 
a time, update when appropriate 
rewrite each in turn to new 
file 

10 RSSIGN ©From TO "OLD" 



20 


RSSIGN @To TO "NEW" 


30 


FOR 1=1 TO 3 ! Count of record 


40 


ENTER @From;R$ 


50 


IF R$="ED"THEN R$ = "Neu J name" 


60 


OUTPUT (2To;fl$ 


70 


NEXT I 


B0 


END 



D3-50 



NOTES 



99 



NOTES 



SERIAL UPDATES 
COMPARED 



Ons-f 1 1 b 
upd ate _ 

-Faste r 
(How much? Depends..]) 

-R 1ekys error or 

power failure during 
rewrite phase- data loss 

-Requires enough memory 
to hold FILE 



-Requires only one 
f I 1 a on mad I a 



Tuio-f i I e 

update 

-S 1 o we r 



-Safe : old -file not 
mr i tton to 
Only lose update 

-Rsqulres enough 
memory to hold 
RECORD 

-Requires tuio files 
on med 1 a 
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EXERCISE 16 

Write a program that updates the data on file "0LD__DATA" , using either 
update technique that was discussed. 

- Data to be changed: 

1. Any occurrence of "Nabraska" 
to "Nebraska" 

2. Any occurrence of "Mississippi" 
to "Mississippi" 

- Number of data items : 20 

- Maximum length of any item : 20 characters 



For your own information , have the program print out any data item that 
is updated, and the number of the data item. 

(PRINT A$; TAB(20}; I) 
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BDflT FILES 

-Created by CRERTE BDRT 

-Defined records 

-Sequential or random access 

-Formatted or unformatted data 

-End-of-file is a pointer 

-Not transportable or compatible 



NOTES 
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BDRT FORMATTING 

FORMRT ON/FORMRT OFF 
- I/O Path attr i bute 
-Defined by RSSIGN 
-RSCII data representation 
FORMRT ON 



NOTES 



Internal binary data 
rep resent at i on 

FORMRT OFF 
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NOTES 



BDRT FORMRTTING 

ASSIGN ©Name ; FORMRT ON 
OUTPUT ©Name ; In tg r , Re a 1 , St r $ 



1 2 3J4 VM 3 



1 4 I 1 |5 '9 



R._F 



H .E L L |0 



C |L 
R F 



RSSIGN ©Name ; FORMRT OFF 
OUTPUT OName ; Int g r , Re a ': , St r $ 



Real 



;n in in e h r- . ( 
JJJljJi.Ll .J .J 



Internal representations! 



String var . overhead 
C count ) 
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NOTES 



SELECTING BDRT 
FORMAT!" f ING 

- Defau It : FORMRT OFF 

-FORMRT ON:RSCII data 

represent at i on 

-FORMRT OFF: Internal data 
representat i an 

RSSIGN eNdrtia TO -TEST" ; FORMRT ON 
RSSIGN SNartiB TO " FRST ' : FORMAT OF F" 
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BDRT DRTH FILE 

Storage Requirements: 

1 . FORMRT ON: 

1 byte per character 
+ 2 bytes (CR/LF) 

2. FORMRT OFF: 

Re a 1 : 8 bytes 

Integer: 2 bytes 

String: 1 byte per character 
+ 1 byte i -f odd # 

of characters 
+ 4 bytes overhead 



NOTES 
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CRERTING BDRT FILES 

— CRERTE BDRT reserves space on 
the disc -for a -File of the 
specified number of de-fined 
records of optionally 
specified length 
(default = 25G bytes) 

CRERTE BDRT " DRTR2 " , 100, 5 12 



NOTES 



D3 
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NOTES 



BDF1T SERIRL ACCESS 

-Use (semantics) and syntax is 
the same as ASCII f i le serial 
access. Data is written to and 
read from f i le at the current 
file data pointer 

-No EOF is put on the f i le at the 
end of the data. Instead, an 
EOF pointer is maintained in 
the I/O path table and on the 

OUTPUT @Fi le;Data$ 
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NOTES 



DIRECTED (RRNDOM) 
RCCESS 

Directed access postitions the 
file pointer at the beginning 
of the specified record for 
OUTPUT or ENTER 
(Must specify record number!) 

No EOF is put on the file. There 
is an EOF pointer instead in 
the I/O path table 

OUTPUT @Fi le.Rec. num; Data* 

D3-59 
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10 CRERTE BDRT " TEST 1" ,10,8 

20 RSSIGN ©F i II e TO "TEST1"; 
FORMRT ON 

3 OUTPUT @Fi lie, 1 ; "ED" 
l 2 3 _ 



NOTES 



E 


D 


C 
R 


L 
F 
























/ 


40 OUTPUT @Fi le,2; "flLVIN" 
i a 3 


E 


D 


R| F 










n 


L 


V 


I 


N 


C 
R 


L 
F 


1 . / 



50 ENTER OFi le,2;R$ 
60 PRINT R$ 
70 END 
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EXERCISE 17 

Write a program that puts 100 numeric data Items on a BDAT data file. 
The values for these data items are from a 3-cycle sine wave that your 
program will calculate. Pictorially, the data will look like this: 




1. Create a data file "SIN-DAT", either 

a. 100 records of 8 bytes/record (Directed Access), or 

b. 1 record of 800 bytes (Serial Access) 

2. Generate the data 

a. Range of -10 to +10 (10*SIN(X) ) 

b. Use a FOR/NEXT LOOP? 
Array(I)=SIN(I*360*3/100)*10 

3. Write the data to your file using the appropriate access method. 



Note: The solution program creates a serial access file. 
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EXERCISE 18 

Write a subprogram that creates a BDAT data file, then outputs 20 string 
data items (one per record) to the file. The data items will be passed 
to your subprogram as a string array in the parameter list. 



- Name of your subprogram: 

- File name of your subprogram: 

- Create a BDAT file of: 

- Name of BDAT file: : 

- Parameter list: 
After you write the subprogram and store it on the file, GET 
"BLD_DATA" and run it. Your subprogram will be loaded and called. 

When everything has completed, the data file should look like this: 



Wri te_data 
"WRITEBDAT" 

20 records, 25 bytes/record 
"BDAT_DATA" 
(Data$(*) ) 



Record 1 



Record 2 



Record 3 



Data File : 



Data$(l) 



Data$(2) 



Data$(3) 
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SUB 
Write Data 



± 



CREATE BDAT"BDAT_DATA",20,25 



JSL 



Open file 



I = 1 



I 



Write item #1 
on record #1 



^. 



I - I + 1 




Close file 



J£_ 



END 
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EXERCISE 19 

Write a program to retrieve and print the 20 data items on file 
"BDATJJATA" (A FOR-NEXT loop would be OK). Your program should then 
ask which items need to be modified, input the corrected items, and 
rewrite them to the file. (Don't rewrite alj_ the items, only the 
corrected ones). Remember, this file is a directed-access file so 
your program will have to keep track of the associated record number 
for each data item. 

Some records you might wish to update are: 

1 

2 

9 

14 
15 



N"hey are misspelled.) 



MULTIPLE DRTfl ITEMS 

ON DIRECTED RCCE55 

RECORDS 

-First do - Directed Recess: 
Set pointer to beginning to 
defined record 

-Then do - Serial Recess: 

Move pointer across data items 
within de-fined record 

— Crossing de-Fined record boundary 
not all owed ! 

OUTPUT @Fi le, 15;R, Test , Value 
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NOTES 



serirl vs directed n 
rccess 

5e M al Directed 

Conserves spacejCan be wastful 

if logical record 
lengths vary 

Hard to update Easy to update 

Slow access tc Constant, access 
last records in .times across -file 
file 
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NOTES 



BDRT END-OF -FILE 

Updated whenever: 

1 .Current EOFmoves past 

EOF record (Register 7) 

2 . END keyword is specified in 

an OUTPUT statement 
(OUTPUT @Fi le;END) 

3.C0NTR0L statement sets 
register 7 or 8 
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CONTRRST OF R5CII 
RND BDRT FILES 





RSCII 


BDRT 


Transportable 


YES 


NO 


HPL Compatible 


YEIS 


NO 


Se r i al access 


YES 


YES 


Directed access 


NO 


YES 


FORMRT ON 


YES 


YES 


FORMRT OFF 


NO 


YES 


Re co rd length 


25B 


De-F i ned 


Use IMRGE? 


NO 


YES 
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NOTES 



TRAPPING END-OF-FILE 

10 ASSIGN (SDvm TO "DRTR_FILE" 

20 ON END ODvm GOTO Done 

30 LOOP 

40 ENTER <5Dvm;DRTR(I) 

50 I = 1+1 

G0 END LOOP 

70 Done : CRLL PI ot CDat a(*) ) 

B0 END 



NOTES 
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EXERCISE 20 

Modify the program "RANDJJPDT" to use ON END and LOOP rather than the 
F : 0R-NEXT loop to read in the data. Check your solution by running the 
program, but you needn't bother updating any data items (enter a 
record number) . 



NOTES 



RSSIGN REVISITED 



Four functions o-f RSSIGN; 



1 . Ojier} a data file 
RSSIGN @Fi le TO 



"TEST 



2 ■ CJ_9_se a data file 
RSSIGN @Fi le TO * 

3 . De f i ne or alter BDRT attributes 
RSSIGN @File;FORMRT ON 

4 . Rese t file pointer to 
beginning of file 

RSSIGN @Fi le TO "TEST" 
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FILE CONTROL RND 
5TRTUS REGISTERS 

-BRSIC Language Reference p.2B3 
- STRTUS reads I/O path registers 

STRTUS 6Fi le. 1 ; Type , Dev.No_rec ,Len 

-CONTROL writes I/O path 
reg i sters 

CONTROL <SFi le,7; 100 
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NOTES 



SPEED CONSIDERATIONS 

- BDflT files, FORMRT OFF are 
significantly faster than 
either 

BDRT/FORMRT ON or RSCII files 

Exception: Strings 

-Fastest BDRTwrite is obtained 
by using CONTROL to set EOF to 
last record in -File 
([especially directed access) 

D3-68 



NOTES 
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EXERCISE 21 

GET "SPEED" and run the program. The program records numeric data on a 
BDAT file using various combinations of FORMAT ON/OFF, writing the entire 
array vs one element at a time, and forcing EOF to the end of file. 

Analyze the printed results. 

Are the relative performances what you expected? What other factors 
influence this application? (File size, updatability. . . ) 

1. Can you explain why Number 1 is faster than Number 3? 

2. How is Number 4 so much faster than Number 2? 

3. Contrast Number 5 with Number 1. Does the fewer number of bytes 
transferred explain the speed difference? How about formatting time? 

4. Why is Number 6 only slightly faster than number 2, even though only 
half as man;, bytes are being transferred? 
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I/O PROGRAMMING 

Object i ves : 

1. Relate Unified I/O and 

Mass Storage Programming 

2. Control a minimal instrument 

system 

3. Control 9826 internal 
peripherals 



NOTES 
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I/O IS: 

-Data Input and Output 

-Stated relative to the computer 

-R data sourc e being transferred 
to a data de stination 

-Implemented by Interface Cards 



NOTES 



D4-2J 
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NOTES 



INTERFRCE CRRDS 

Provide electrical and 
mechanical compatibility 
between the computer and 
external peripherals 

Ex amp 1 es : 

98G22R Parallel Interface 
98623R BCD Interface 
98624R HP-IB Interface 
9852GH R5-232C Interface 
98628R Datacomm Interface 
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NOTES 



INTERFRCE SELECT 



D i sp 1 ay 
(Rlpha) 



iFI r.if? 1 = 1 !•:• in 

ZV P9INT I 

J id nr.',r J 

-IB '-?JD 



D1 sp 1 ay 
(Graphics) q 



CODE^ 






Processor 

and 

Memory 



Keyboard 



r _ in 



7 Internal HP-IB 

L ,-:~:rixi:izz^ 



8-3 i 



nj::on.-' 



External (plug-in) 
Interfaces 
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I/O HIERARCHY 



'High 
Leve 1 



Low 
Leve 1 



NOTES 



I/O Statement 

(SName 

Se 1 ec t Code 

Fo rmatt i ng 

Conve rs i on 

Firmware Drivers 

Reg i sters 

Hardware 
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VERY BRSIC I/O 

10 LET Volts = 2.51 

t f 

□sst 1 nat Ion Source 



20 INPUT R , B , C 

t : i t 

Dsst 1natl ons 
Oper ator~Source 



30 PRINT R , B , C 



Source 
Pr 1ntar=Dsst 1 n at 1 on 

40 DISP R , B , C 

1: A s 

Source 
CRT-Dest i nat i on 



NOTES 
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NOTES 



INPUT VS LINPUT 

The Problem of Commas ik Quotes 

INPUT "Rddress " , Rddr $ 
-operator enters- 
Hous ton , Tex as lENTEIR 
Rddr$ contains Houston 

LINPUT "Rddress" , Rddr $ 
~s arne ent ry~ 
Rddr$ contains Houston , Tex as 



A 



D4 
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NOTES 



MORE BASIC I/O 

HI 



Data Source 

DRTP 3.14, 1 . G8, 2 . 05 



RERD R , B , C , Hi $ 

| _ |_ 

Data Best 1 n at 1 ons 

RESTORE Dvm-data 

Pointer control (like RSSIGNJ 



V4_y 



USER-DIRECTED I/O 

-Explicit designation of data 
source /d est i nat i on 

-Device Selector: interface 
select code (and device 
add ress ) 



NOTES 



PRINTER IS 701 



| De v i ce Rdd ress 
Se lect Ca de 
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DEVICE RDDRE5S 
(HP- IB) 



-1982 6; 



21 



HP-IB 
Se lect code 7 



01r = 



Printer 



05, 



Vo 1 tmete r 



08, 



07, 



Signal 
Ganerato r 



9895 



NOTES 
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NOTES 



USER-DIRECTED I/O 

PRINTER IS device selector 
Directs all PRINT data to the 
specified device 
Def aul t=CRT=l 

PRINTRLL IS device selector 
Directs PRT RLL messages to 
the specified device 
Def au 1 t=?01 
(Governed by PRT ALL is ON/OFF) 



D4 
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note:s 



USER-DIRECTED I/O 

LIST # device selector 
Lists al 1 or part of the 
program to the specified 
dev i ce 

DUMP DEVICE IS device selector 
Directs contents of alpha or 
graphics dump to specified 
devi c e 

(DUMP RLPHR, DUMP GRAPHICS) 
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USER-DIRECTED I/O 

ENTER and OUTPUT 
I/O Workhorses 

OUTPUT Device selector ; R,B,C 

t t I t 



Des"t i nat i on 



Source 



ENTER Device selector ; H.B.C 

1 ll±lJ 



Source 



Dest 1 n at 1 on 



NOTES 
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EXAMPLES 

ENTER S ; Long _str 1 ng$ 
OUTPUT 1 ;Operator_prompt$ 
OUTPUT 2; "BEEP|j<] X" 
OUTPUT l;l.8,2.8,3.8 
OUTPUT 701; "Printer test" 



NOTES 
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NOTES 



~\ 



USER-DIRECTED I/O 

Unifying I/O and Mass Storage 
- - I/O Paths - - 

RSSIGN @Dev TO "Data -File" 
ENTER SDev ; Readings C * ) 

RSSIGN @Dev TO 705 

ENTER 'SDev ; Readings (*) 



Bonus: I/O Paths are faster (15JS) 
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EXERCISE 72 



Write a program that takes 100 "instrument" readings and outputs those 
readings to the CRT, then to the printer. Your program can take the 
"instrument readings off of file 'SIND/'T" for simulation purposes. 
Use only AS1IGN, OUTPUT, and ENTER to read and write the ctata items. 

Don't forget, to use the appropriate file access statement for the 
structure of the records en the fi 'e (sequential is 1 record of 800 bytes, 
directed is 100 recorcs of 8 bytes . 



Save your file as "Reed sin" (lowercase tc avoid clobbering "RtAD_SIN"). 



DFITR FORMRTTING 

Two 1 eve 1 s : 

Low level: Translation of 
internal binary data 
representation into characters 
000000101100100 > 356 



Interna 1 



Formatting External 



High level : Arrangement of data 
into optimal human or machine- 
readable formats 
1B0500 +16.05 E+04 



Unformatted 



Format t i ng 



Fo rmatted 
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DRTR FORMRTTING 

Low level formatting: I/O path 
attribute 
FORMRT ON FORMAT OFF 
80 ASSIGN @Pipe TO ?05 ; FORMAT OFF 

High level formatting: 
Use r-dEjf i ned "images" 

This topic is addressed 
in the f o 1 lowing slides 
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NOTES 



DRTfl FORMATTING 

FORMRT ON/FORMAT OFF 

I/O Path Attribute 

Defined by RSSIGN 

RSCII data representation 

FORMRT ON 

Internal binary data 
represent at i on 

FORMAT OFF 



D4 
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NOTES 



DRTR FORMATTING 

In the beginning 

There were punched cards 

-Card image: wh at the data looked 
1 ike on the punched card 
( Fo rrnat ) 

-Record: one card image 

"Physical " unit of data 
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DRTR FORMATTING 

Record Input: ENTER 

Reads data items unt i 1 
encountering a record 
del imiter 

Record Output: OUTPUT 

Sends data items then sends a 
record delimiter 



NOTES 
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DRTR FORMATTING 

Data item delimiter: a control 
or special character 
separating individual data 
i terns 

Record del imiter: a control 
character separating records 
Ccard images) 

CRRD 1 C RRD 2 CRRD 3 

1.23 : S.78 | p 1 4.5G : 3. 14 ~| ^ [s.Q? : 5.43 



t. 



Col on data 1 tem 
de 1 imiter 



LF Record 
del Imiter 



NOTES 
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NOTTS 



DRTR F0RMF1TTING 

Data Be 1 imiters 



\_j 



Numeric! String ; Record 



OUTPUT 

C 3 3 

output! PoV.' 

(4)! Nag^ 



CR/LF 



CR/LF 



nothinqj CR/LF 1 



ENTER 



, n o n — n u me r 1 ■ 



J LF OR 
CR^LF 



LF or 
CR/LF 



PRINT ' ? ?i - n .. r i 

( j);31ank Pads c Blank Pads ! CR/LF 



CR/LF 



PRIN } 4) ; 1 bl ank ' 1 b< ank 

1 . EOL ( end— of - I i ne > sequence 

2. Blank fill to and of 10 character Field 

3. Commas fo~ data '1st separators 

A . Semicolons for data 11st separators 



- 1 
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NOTES 



DRTR FORMRTTING 

Try each o-f these: 
OUTPUT 1; 123,455 
PRINT 123,456 
OUTPUT 1 ; 123;45S 
PRINT 123;45G 
OUTPUT 1 ; - 123, 45G 
OUTPUT 1 ; - 123 ; -4 5G 



A 
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DRTR FORMATTING 

Default Numeric Formats: 

-Numbers in the range of 

1 E-4 <|Number!< 1EG, sent as 
rounded 12 digit floating 
po i nt 

-Rll others - scientific notation 
OUTPUT 1;12345B.7B31,12345B7.B31 



NOTES 
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DRTR FORMATTING 

Custom Data Formats 

- IMRGE explicity specifies the 
data format used for 
OUTPUT, ENTER, PRINT, DISP, 
and LRBEL data items 

GET "IMG-EXPLS" 
LIST the program 
RUN the program 
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NOTES 



IMRGE SPECIFIERS 



K.-K) 



Numerics (C 


on 


p act 


Digits 




D,Z 


Rad i x 




, 


Exponent 




E 


Si gn 




S, M 


B i nary 




B,W 



Strings CCompact — K , -K J 

Ch ar ac t e r A 

Blank X 

Text "LITERRL" 

GET "SPECIFIERS" : STEP the 

progr am 
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NOTES 



IMRGE SPECIFIERS 



Records: OUTPUT 

— EOL suppress 
-EOL send 
-CR/LF 

— Fo run-fee d 



# 
L 
/ 
9 



Records: ENTER 

— EOL not required # 

— "EOI"(HP-IB) is an EOL V. 

— Skip to next EOL / 
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IMRGE SPECIFIERS 

Repeat factors: 

6D.2D 
L 13 (BE, 2D) , 5C30R) 
24CS2D.4D, 1 0X , S2 D . 4D , / 3 

30 DIM RrrayC48) 

40 INPUT Rrray(#) 

50 Img$=="24(S2D.4D, 1 0X , S2D . 4D ,/)" 

60 OUTPUT 1 USING Img $ ; Rrr ay (* ) 

GET "REP FRC" 
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EXERCISE 23 

Modify program "READ_SIN" (or your program "Read_sin") to write the 
data items as a 5 column printout to the CRT, and a 10 column printout 
to the printer. Some things to be aware of: 

1. You won't need an exponent. 

2. Allow two digits to the left of the decimal point. 

3. Three digits to the right of the decimal point are plenty 
(our DVM has limited accuracy). 

4. Add some extra spaces between numbers on a line. 

5. Remember to specify an EOL sequence with each line. 



Picture one line of printout and the data images on it, then try to 
construct an IMAGE that will produce it. 



For example: 
-1.345 



2.843 



8.152 



6.001 



.055 



Then add a repeat factor that will produce the desired number of lines 
of that format. 
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NOTES 



INTERNF1L I/O 

OUTPUT to the keyboard?! 

1. Control the computer by 
pressing keys, "typing". 

2. FN low operator editing of 
string without re -typing: 

OUTPUT 2 USING " # , K " :R$ 



ENTER 2 



R$ 
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NOTES 



INTERNRL I/O 

ENTER from the CRT? ! 

Read in system messages, 
CRT a logs, etc 

Posit ior the cursor: 
PRINT TRBXY (1,1); 

Read the screen: 



ENTER 1 



Screen! 
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INTERNRL I/O 

ENTER, OUTPUT to the disc 
-Mass Storage- 

The Real-Time Clock 
SET TIME Seconds 
SET TIMEDRTE Seconds 
Seconds= TIMEDRTE 



NOTES 
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INTERNRL I/O 

- The keybo ard 

Execute a service routine 
whenever a key is pressed 

ON KBD, 8 CRLL Key.svc 
t 
priori ty 

-KBD$ -function returns keys 

pressed and clears the buffer 

Keys$=Keys$&KBD$ 



NOTES 
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EXERCISE 24 

Write a program that uses ON KBD to trap keypresses and display the 
character and its numeric value for the pressed key. Try adding features 
to disable the STOP and PAUSE key functions. Look up in the Language 
Reference manual the function of the following statement: 

CONTROL 2 , 7 ; 2 

(Hint - look at the "Keyboard Status and Control Registers" table in the 
back of the manual .) 

What effect would this statement have on the operator and the program? 
How might an operator stop the program if necessary? Perhaps a sequence 
of Control-Shift-Key(X)to signal an extraordinary condition to the program? 



Use CTRL - SHIFT - STEP - to stop "0N_KBD" after you run it. 



NOTES 



EXTERNAL I/O 

The HP/IB 

Easy-to-use, but sophisticated 

Like a committee: 

nr :2~: [3 ' 



L 
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HP-IB 

-Committee chairman 

HP-IE!=5ys t em controller 

-Speaking member 

HP-IB=Rctive Talker 

-Listening members (s) 

HP-IB!=Rc t i ve Listener(s) 



NOTES 
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HP-IB 

Ret i ng oh ai riman 

HP-IB=Rct i ve Controller 

To address the committee, a 
member must be "given the 
floor" by acting chairman 
HP-IB=Rddressed-to-tal k 
Done by Rctive Controller 



NOTES 
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NOTES 



HP- IB 

-The acting chairman may direct 
members to take notes 
HP-IB=flddressed-to- 1 isten 
Done by Rctive Control ier 

-Slow members may raise their 
hand to slow down the speaker 
HP~IB="Handshake" 
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NOTES 



HP-IB 

-The Gavel (restoring order) 
HP -I B= Interface Clear CIFC) 
Only done by System Cant roller 

- Summary : 

fl committee is organized, 
orderly, anc has protocols 
HP-IB is we 1 1 -def i ned , 
predictable, and has protocols 
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HP- IB 
BEHIND THE SCENES 



NOTES 



OUTPUT 701 



HI 



Commands : AT N True 
1 . THLK RDDRESS 2 
2 . UNLISTEN 
3. LISTEN RDDRESS 



1 



01 



CMTfl) 
(UNL) 
(LRG) 



Dat 


a: RTN 


Fa 


4 


DRTR 


"H' 


5 


DRTR 


11 T II 


G 


DRTR 


CR 


7 


DRTR 


LF 



se 
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HP- IB 
BEHIND THE SCENES 



NOTES 



ENTER 702 



HJ 



Commands: RTN True 
1 .TRLK RDDRESS 02 
2 . UNLISTEN 



(TRG) 
CUNL) 



3. LISTEN RDDRESS 2 1 CMLR) 

Data: RTN False 
4. DRTR "B" 
5. DRTR "Y" 
G.DRTR LF 
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NOTES 



H P - I B 
"BEHIND THE SCENES 



"Order in t h a c o u r t 

" Orde r un thu bus. ! 

RBORT 7 (IFC3 
-The Gavel ! — 

CLEAR ? (ECU 
-The? Shoe 9 - 



D4-40/ 



NOTES 



HP 



IP 



b 



Setting up instruments 
-Commands as data- 



Ins t r umen t 

Funct i ons 

Range 1,2,3 
Funct ion 1,2 
Trigger 



PSCII 

C o m m a n d s 

R : , R2 , R3 
F I , F2 

T ! 
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HP- IB 

Sending instrument commands 
OUTPUT 705 ; "F1R2T1 " 

Reading instrument data 
ENTER 705 ; Volts 



NOTES 
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HP- IB 

10 RSSIGN OTodvm TO 705 

20 RSSIGN GFromdvm TO 705 

30 OUTPUT OTodvm; "F1D40R7T1" 

40 FOR 1=0 TO 9 

50 ENTER OFromdvm; Vol ts(I) 

G0 NEXT I 

70 PRINT VoltsC*) 

80 END 



NOTES 
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EXERCISE 25 (Optional) 

Modify your program "Read_sin" or the solution program "READ_SIN" to 
work with a voltmeter. Take the readings from the device (instead of 
the file) and write them to the file, CRT, and printer. 

1. You will need to insert some program lines similar to those 

on the previous slide to take the readings from the instrument. 

2. You may need to modify the instrument commands depending on 
the particular set-up available to your class. 

3. Output the 100 reading array back to the file "SINDAT". 
This should simply be a matter of changing ENTER to OUTPUT. 



Note: If an instrument is not available, assign the "Todvm" I/O path 
to a temporary file (one record of 256 bytes is sufficient) and the 
"Fromdvm" I/C path to "SINDAT". 



NOTES 



HP-IB 

Make things happen: 
TRIGGER 705 
ENTER 705; Volts 

Find out what's happening: 
Status-SPOLL(705) 

This is; device-specific status, 
not interface status 
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HP-IB 



Put devices under remote control 
REMOTE 7 

Prevent operator intervention: 
LOCRL LOCKOUT 7 

Return devices to local control: 
LOCRL 7 
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NOTES 



HP-IB INTERFACE 

Status: Lang. Re-F . pgs.287— 290 

Type: STRTUS 7,0; Type 

Rddress: STRTUS 7 , 3 ; Rd 
Rd=BINRND(fld,3 1 ) 

State: STRTUS 7, 6; St ate 

Lines: STRTUS 7,7;Lines 



NOTES 
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NOTES 



HP-IB INTERFRCE 

Cont ro 1 

Reset: CONTROL 7,0; 1 

Set Address: CONTROL 7 , 3 ; Rd r 

Interrupt 
SRQ: ENRBLE INTR 7; 2 
Rnyth i rig else-refer to 
Lang . Ref . 



D4 -'v 



NOTES 



EVENT BRRNCHING 
-REVISIT ED- 

Myriad of possible external 

causes. One "enable" statement 
for all 

The "mask" specifics uuh i ch 
interrupt causes are desired 

ENRBLE INTR 7 ; Mask 
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EVENT BRANCHING 

For Inter rupts : 

ON INTR ? GOSUB Srq 

(Same form as other event 
branches ) 

Rll together now: 
ON INTR ? CRLL Srq 
ENRBLE INTR 7 ; 2 
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EXERCISE 26 

Write a program that enables and services a service request. The 
program should contain a main loop that displays a counter, and a 
service routine. In your service routine, obtain the device's status 
and print the result. (Use SPOLL). 

1. To generate a service request, press the SRQ button on the 
HP- IB box. 

2. To deal with SPOLL using the HP-IB box, you need to accept 
several command bytes, then when the ATN line goes false, 
send one response byte, then you must accept two more 
command bytes. At this point, SPOLL is complete. 

Your program must re-execute ENABLE INTR if it is to continue servicing 
SRQ interrupts. 
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NOTKS 



EVENT BRANCHING 



Interrupt: 

-Happens any time, any place 

-Is serviced by the operating 
system-not the BRSI'C program 

-Is a hardware ( lourleve 1 ) event 

Event Br anch : 

-Happens only at end of current 
prog r am line ! 

—Is serviced by usee's program 

- Is a BRSIC (high-level) event 

. 04-50^/ 



EXERCISE 27 

Modify your service-request program so that the main program is exe- 
cuting a WAIT 5 in the loop. Change the SPOLL function in your service 
routine to a PRINT "HERE" statement. Watch how long it takes your 
program to service the SRQ. 

Try pressing SRQ twice in rapid succession. Does the service routine 
get executed twice? What does this mean? 

What effect would this have on your programming efforts if you required 
a short response time to interrupts? What can happen to interrupts 
coming in at too high a frequency? 
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EVENT BRRNCHING 



Bailing Out 

If an OUTPUT or ENTER gets "hung" 
by a device, the program dies 

ON TIMEOUT 7,2 CRLL BaH_out 

Se t s at wo second t i me limit 
to an otherwise infinite wait 
for ENTER cr OUTPUT on select 
code 7 to complete 
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EVENT BRRNCHING 

REVIEW L0C a, 









ENABLE 


Interrupts 


Ever 


t PM 

END 


or 1 ty 

1G 


DISHBLE? 

" r "~N0"'^ 


Logged? 


ON 


NO 


ON 


ERROR 


IB 


NO 


NO 


ON 


TIMEOUT 


16 


NO 


NO 


ON 


INTR 1 


- 15 


YES 1 


YES 


ON 


KEY 1 


- 15 


YES 


YES 


ON 


KNOB ; 1 


- 15 


YES 


YES 


ON 


KBD 1 


- 15 


YES 


YES 




1 . DISRBLE or 


1/. Use 


ENHBLE INTR, 


v^ 
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NOTES 



Branch 



EVENT BRANCHING 
REVIEW 

Scope 



System Priority 
Becomes : 



GOTO 
GOSUB 

CRLL 



Log a 1 
Loc a 1 

G 1 ob a 



RECOVER Globa 



Dynaml c priority 



No change 

Sp ec if ied priority 
of ON<event> 

Spec ified priority 
of ON<event> 

Priority ofcontext 1 
that defined 
ON<event> 
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NOTES 



EVENT 



BRRNCI IING 



REVIEW 

Priority 

-Only event branches of 

specified priority higher 
than current system priority 
are taken 

-Default system pr'Dr i ty = 

-Default event prior ity = l 
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EXERCISE 28 

Write a program with service routines for errors, special function keys, 
the knob, and external (SRQ) interrupts. Define priorities and branch 
types to ensure that SRQ is always serviced immediately, regardless of 
current program context. 

1. Kl, K2, and K3 invoke subroutines of priority levels 1, 2, and 
3 respectively, and display operating priority. 

2. K 19 is an "abort" key that returns program execution to the 
main program loop - inspite of current context and operating 
conditions. 

3. The knob causes all but SRQ service to be disabled for the 
duration of knob service then reenabled at the end of the 
routine. 

4. An error has the same effect as pressing K 19. 

In each service routine, display the current priority, the routine's 
name and a counter that is incremented to 500 before exiting the routine. 

Try various combinations of knob rotation, keypresses, and SRQ to deter- 
mine if the logic of your program is correct. Be sure that SRQ is always 
serviced, regardless of what the computer is doing. 

After your program is running correctly, add a subprogram that displays 
the current nesting level (how many times it has called itself), increments 
the nesting level counter, allocates a 100 element array, waits for .05 
seconds, then calls itself. Add a call to this subprogram in the main 
program and run your program again. Which interrupts will get serviced? 
Which won't? How many levels of nesting do you get before you get an 
error? (How can you tell you got an error?) What happens if you press 
K19 before then? Try pressing Kl, K2, K3, then K19. Are you able to 
explain the sequence of events that occurred? 
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GRRPHICS 
PROGRAMMING 

Object i ves : 

-Display data graphically. 

Curves, Bars, Pies 
-Create and manipulate objects 

Dram, Move, Rotate 



NOTES 
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INTRODUCTION 

Graphics = Plotting = Drawing 
The pencil: Electronic or 
Mechan i c al 
The CRT or Plotter bed 
Graphic Display Units 
versus inches or 



NOTES 



The p ape r : 

T h e ruler: 
CGDU scale 



rn i 1 1 i mete rs) 



0, 100 

VI 




133.44, 100 


X 


CRT 




*" 0,0 




133.44,0 




X ax i s 
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notf:s 



INTRODUCTION 

10 GRAPHICS ON = GRAPHICS 

20 ALPHA OFF = GRRPHICS; (2nd press) 

3 GIN IT = Initialize parameters 

(Refer to GINIT in ref. manual) 

4 GCLERR - Clear graphics. 

50 MOVE 0,0 = Lift "pen", move 

it to lower left of CRT 

(X = 0, Y=0). 
G0 DRRW 10,10 = Put pen down, 

dram a line from current 

(X,Y) to (X=10, Y==10). 

v D5-3 



NOTES 



DRAW R LINR 



DRRW 50,50 
X Y 
100 

GO 
X 

It) 



>- 
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X ax i s 
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DRRN AN X 

Visualize the action 
Draw - Move - Draw 



NOTES 



10 GINIT 
20 GRRPHICS ON 
30 DRRW 50,50 
40 MOVE 0,50 
50 DRRW 50,0 
60 END 




0.0 



50,0 
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Of 



50,50 
R 



DRRW R CIRCLE 

Visualize the action: 
Move - Draw - Draw — Draw. 

5 DEG .„ 

10 GINIT 

20 GRRPHICS ON 

30X=50 ! Center 

40Y=50 ! Circle 

60 R=40 . ! Rad i us 

70 MOVE X,Y 

80 FOR 1=0 TO 360 

90 DRRW X+R*COS(I),Y+R*SINCI) 
100 NEXT I 
110 END 



of circle 



NOTES 
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NOTES 



drrn n sine: have 

This can be used to plot most any 
function of X. Y=f(X) = SIN CX) 

5 DEG 
10GINIT 
20 GRAPHICS ON 
30MOVE 0,50 
40 FOR X=0 TO 3G0 100 
[50 DRRW _X L S I N ( X ) ! 
G0NEXT X a, sa 

70 END 

Try scaling... 
[50' dRR H X,"J3'6B* 100 ^51 N 7x ) *4 0+50] 



100,50 
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NOTE! 



GRAPHICS 


s 


:: n l 


ING 




\ 


You can scale the 


d 


1 s p 1 ? 


.y to 


th 


O 


range of the data 


y 


DU Ui i 


sh to 






represent . 












5 DEG 












10GINIT 












20GRRPHICS ON 












!~30 WINDOW 0,36 0^-1 


.5 


9 1.5' 








40MOVE 0,0! 




i.5 








50 FOR X=0 TO 360 












[60DRRW XjSINCXJJ 












70 NEXT X 


_ 


1.5 








80 END 







360 




•^ 
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DEFRULT SCALING 



100 



133.444 



GDU's 

Gr aph i c Di sp 1 ay 
Uni t 



NOTES 



1.5 



•1.5 



SIN(X) SCRLING 



360 



UDU's 
Use r-De-F i ned 
Un i ts 
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DEFRULT SCRLING 

(What, and why is it?) 

1 . 1 1 is arbitrary. 

2. It is independent of actual 
plotter size. 

3. Plotter short side = 100 units. 

4. One X unit=One Y unit=One GDL1 

5.Rspect Ratio (X len/Y Ian) of 
plot area = RATIO function. 



NOTES 
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NOTES 



DEFRULT SCRLING 

(Hquj can I use it?) 

1. Scale your oata appropriately 

2. Ignore it. (Scale display to 
match your oata range.) 

3. Use it with VIEWPORT to allow 
the same routine &. same range 
of data draw on different 
are as of plotter. 
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NOTES 



LOCRTING & SIZING 
THE PLOTTING RRER 

-Use VIEWPORT to specify where 
and how big the plotting 
area is. 

-VIEWPORT uses GDU"s to specify 
points on the plotting device: 
Xleft, Xright, Ylower, Yupper 

VIEWPORT 40,65, 40, 60 

VIEWPORT Left, Right, Bottom, Top 

D5- i;;: 
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MULTIPLE PLOTS 

Insert these 1 i nes : 

a 1 VIEWPORT 0,60,0,45 ILouier Left 

22 GOSUB 30 

23 VIEWPORT B5, 130,0,45 ILower Right 

24 GOSUB 30 

25 VIEWPORT 0,60,55,100 lUpper Left 
2B GOSUB 30 

27 VIEWPORT 65,130,55,100 ! Upper Right 

26 GOSUB 30 
29 STOP 



NOTES 



71 RETURN 
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WHRT YOU JUST DID: 



GDU's; Blue 



100 






LINE 2 5 




VIEWPORT 


55 





360 



45 






CINE 2 1- 




VIEWPORT 








1.5 

-1 .5 

1.5 



-1.5 



360 

60 



UDU's: White 



rTNE 2?/ 
VIEWPORT 



360 



./CINE 23, 
VIEWr^ORf 





65 



360 
130 



1.5 



-1.5 

1.5 



-1.5 
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NOTHS 



VIEWPORT estab 1 i shed 

-size 

- 1 ocat i on 

of the plotting space on the CRT. 

WINDOW est ab 1 1 shed 

- range 
-size 

of the UDU's uithin the VIEWPORT 
plotting sp ace . 



D5-LE 



EXERCISE 29 



Modify the program "CIRCLE" so that the circle is drawn inside a 
window of 100 X 100. 

What happens to the circle? Can you explain why? Be sure you 
understand what happened before continuing on to the following 
topics. 



.54 



f YET RNOTHER SCRLE 

Isotropic UDU's! 

X unit length = Y unit length 
(Like GDU's, only different) 

VIEWPORT 0, 100, 0, 100 
SHOW -1000,1000,-500,500 

100 GDU's 




100 GDU's 



-1000 1000 
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NOTES 



VIEWPORT establishes the 
plotting area. Cin GDU's) 

Within the plotting area: 

WINDOW defines the range of 
UDU's on X and Y axes. 
CX units A Y units) 

SHOW determines size of UDU so 
that X unit = Y unit. 
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NOTES 



WINDOW scales the plotting 
area in units appropriate to 
plot data, (seconds vs. volts) 

SHOW scales the plotting area 
in units appropriate to drau 
objects. Cinches, feet, meters) 
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NOTES 



BRCK TO BASICS 

Pen control : 

MOVE vs. DRRW 

PENUF (external plotter) 

PEN 

Draw line : _> 1 

Graphics Erase Hne :~< -1 

Pe n s — 

Complement I ire : 

Externa' : selects pen # 
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'LINE PRTTERN SELECT: 

LINE TYPE 1 ,5_ 

type rapeat length 

-Up to 10 line types 

(Solid, dotted, dashed) 

-Graphics line types may not be 
the same as external plotter 
types 

-Repeat length is in GDU's 
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NOTES 



EXERCISE 30 

Modify the program "F0UR_SIN" so that each curve is drawn with a 
different line type. Choose line- types appropriate for drawing con- 
tinuous curves. 

Be aware that line type affects the frame drawn around the plotting 
area (via the FRAME statement). How might the program be modified so 
that the frame is always drawn with line type 1? 
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NODES 



SOME MORE BRSICS 

For interpolation and 
extrapolation yDU use graph 
p ape r . 

Graph Characteristics: 
-Grid pattern 

- X axis 

- Y ax i s 

—Tick marks Con the axes) 
-Graph and axis labels 
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NOTES 



FRRME your plot. 

— Uses current line type. 
-Frames defined plotting area. 

(set by VIEWPORT) 

Put AXES on your plot. 
Specifies X and Y axes. 
- Loc at i on 
-Tick-mark spacing 

— Large tick interval 



D5- 
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FIXES 2,2, 50,50, 5,5, 10 



i | 

Tick Hxes Major 

Spacing Locations l Tick Size 

Major 
Tick Count 



f-tt H-[+rtt{tt+t-|+i +E 3-H+jfH+k+t+l J -tf f 
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NOTES 



Put a GRID on your plot. 

-Similar to RXES statement. 
-Major ticks extend across plot. 
-Cross — ticks drawn at 

intersections of minor ticks. 

GRID 



5,5, 50,50,5, 10 



._ 



T 



Tick Major 

Spacing Tick Count 
Axes 
Locst i ons 



NOTES 
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NOTES 



SEMILOG GRR :D H PRPEF^I 

10 GINIT 

20 GCLERR 

30 GRRPHICS ON 

40 WINDOW 0, 

50 GRID 1 ,0 

G0 FOR N=l TO 9 

70 GRID 0, 1 ,0,LGT(N) 

80 NEXT N 

90 END 



10,0,3- 



determi nes 
log eye 1 es 
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EXERCISE 31 

Modify the semilog grid program to produce a 4 cycle Y axis loglog 

grid. You could either add another FOR-NEXT loop or modify the 

WINDOW and GRID statements to draw lines on both the X and Y axes 
on an LGT basis. 
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LRBELING YOUR GRRPHS 

- LRBEL/CSIZ/LDIR/LORG 
-Labels are drawn at current 

pen position. 
— Character strings, numbers, 

or arrays can be labels. 
-The program can specify: 

-Label character size CCSIZ) 
-Orientation (angle) of label 

(LDIR) 
-Relative origin of label 
(LORG) 

D5-26, 



NOTES 



TITLES RND RXES 
LRBELS 

10 GINIT 

20 GRRPHICS ON 

30 WINDOW 0,5.5,0,5.5 

40 RXES 1 , 1 

50 MOVE 2,5 

G0 LABEL "GRRPH TITLE" 

70 FOR X=0 TO 5 

80 MOVE X,0 

30 LRBEL X 
100 NEXT X 
1 10 FOR Y=0 TO 5 
120 MOVE 0,Y 
130 LRBEL Y 
140 NEXT Y 
150 END 



NOTES 



r-5 

GRRPH TITLE 
-4 


-3 




-2 




r.' 1 , ■<> 


3 4 5 

__i L_ J 
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NOTES 



LRBEL CHARACTER SIZE 

CSIZE 
-Label Characters Have: 
Default Height (5 GDUs ) 
Default Width (3 GDUs) 
Aspect Ratio = 3/5 = .6 

-Height and Aspect Ratio set 
by CSIZE 

-Change "Graph Title" to: 
8 GDUs high, 3 wide 
CSIZE 8, 3/8 
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NOTES 



LRBEL ORIENTATION 

LDIR 
-Labels can te oriented in any 

direction, as appropriate. 
-Label direction is specified 

in current angular .units 

RRD or DEG 

— Rdd to end cf program: 

MOVE 0,0 

DRRW 4 , 4 

MOVE 2,2 

DEG 

LDIR -55 

LRBEL "Bisected Angle" 

D5-29 
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RELRTIVE ORIGIN 
OF" LRBELS 

LORG 
No r ma 1 1 y , labels are drawn 
above and to the right of the 
current pen position. 
Use LORG to specify other 
relative placements-: 
-below- left, centered- above, 

etc. 
-LORG 7 

D5-30> 



NOTES 



DEFRULT = LORG 1 



3. 6. 9. 
2. LABEL 8. 
1 . 4. 7. 
Normal pen pos i t i on/ 1 abe 



NOTES 



p 1 acement 



LORG 9 



.-Pen 



LRBEL 



LORG A 



LRBEL 



Pan 



(Be 1 ow-1 eft ) 



(Center -above ) 
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EXERCISE 32 



Modify the program "LABELS" so that the X axis labels are below the 
axis and the Y axis labels are to the left of the axis. 



EXERCISE 33 

Modify the program "READ_SIN" to plot the data after it is read off 
the file "SINDAT". Your plot routine should be written as a subprogram, 
with the number of data elements and the data array passed as formal 
parameters. 

The plot should be framed, with labels and axes as appropriate. 
Contrast these graphic results with the printout of the data you 
performed previously. 
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PLOTTING BOUNDARIES 

Device-defined boundaries 

Hard-c lip limits 

-Edge of CRT 

-Edge of plotter bed 
User -defined boundaries 

Soft-clip boundaries 

-VIEWPORT boundaries : GDU's 



NOTES 



-CLIP boundaries 

CLIP Left, Right, Bottom, Top 
CLIP ON 
CLIP OFF 



UDU'S/GDU's 
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RELRTIVE PLOTTING 

Useful for drawing objects: 



NOTES 



IMOVE, IDRRW specify AX, AY 
(+ X units across, +Y units up) 
IDRRW 5„0 (5 units across) 
IDRRW 0,, 3 (3 units up) 
IDRRW -5,0 (5 units back) 
IDRRW 0,-3 (3 units down) 

D5-33 
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NOTES 



ROTRTIONRL PLOTTING 

Used primarily to rotate objects 



PIVOT specifies new orientation 
of X and Y axes +or MOVE, DRHW, 



IMOVE, IDRflW. 



PIVOT 45 or PIVOT PI/4 
PIVOT 135 or PIVCT 3*PI '4 
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NOTE 



s i _ V I E W 



L' SOT ERICS 8, ^ 

CI lpping: Limits 2, boundaries 

•. , hi a r d-c iip 1 i rn i t s 

--Absolute 1 i m i t s o f p 1 o 1 1 i n g 

area 
■ - Pb y s i c a ! device bou n d a r i e s 

- RLWRY5 100 GDUs en short side 
2 , So -f t - c I i p b o u n d arte s 

• User-def ineid plotting area 

boundaries 
-Established by VIEWPORT or 
CLIP 

- So -f t - c 1 i p p 1 n g re •'; u 1 a t e d h y 
CLIP ON /CLIP OFF" 

- I-f CLIP 0N r no plotting 
outside sc + t-cl i p b o undar i e s 

D5-?5 
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F D lotting units 



1! ay Units CGDUs) 
1/100 of device's 



Gr aph i c D i sp 

- Def ined as 
sho rt side 

— Isotropic: 

X unit size = Y unix size 
-Locates plotting area on 

plotting device 
User Defined Units ( UDUs ) 
-Plotting area scaled to range 

of data 
-Can be Isotropic (X unit = 

Y unit) or Nonisatrop i c 

CX unit * Y unit) 



NOTES 
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3. Isotropic UDUs 

-Defined by SHON statement 
-Centered in VIEWPORT area 
-Necessary far drawing objects 
X units wide by Y units high 

4 . Non i sot r op i c UDUs 

-Defined by WINDOW statement 
-Mapped into VIEWPORT 

(soft -c I ip) area 
-Useful for graphing 

relationships CY=fCX)D 



NOTES 



D5 
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note:s 



Plotting: making lines 

.Rbsolute Plotting 
—Moves the pen to specified 

X , Y point 

(MOVE: pen up; DFIRW : pen down) 
-Location specified in current 

un i ts 

CGDUs or UDUs ) 
.Relative Plotting 
-Moves the pen by specified 

X , Y distance 



(IMOVE: pen up; 

down ) 

Distance specified 

un i ts 

CGDUs or UDUs) 



DRAW: pen 

in curren t 
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NOTES 



1 i mi ts 



Phys i c a 1 Pen 
-Restricted by c 1 i p p i n q 
-Moved by DRRN, IDRRW 
-Lifted by PENUP Cusefu 
plotter) 



on 



DRRW/IDRRW 
1 i m : t s i 
i s ma ved ) 



- Not moved hy 

outside c 1 < p 

(Logical pen 
Log i c a 1 Pen 

-Not restricted to clip li m i t s 
-Updated by MOVE, IMOVE 

RIsd DRAW, IDRRW 
-Physical pen is >e located to 

Logical Pen coordinates by 

DRRW, IDRRW 



D5-39 



168 



Plot Coord i n cites 

-FN ways measured in current 

un i ts 
-Always along strictly 

horizontal and vertical axes 

for Logical Pen placement, 

AXES, and LABEL 
-Can be "rotated" by PIVOT for 

drawing lines. Labels & axes 

not affected 

■PIVOT specifies angle in 
current angular measure 
(DEG/RAD) 

■PIVOT can be used to rotate 
objects being drawn 

■Use with care! 



NOTES 
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INTERNRL 
GRAPHICS CONTROL 

-Init i al ize : GINIT 
-Clear screen: GCLERR 
-Turn off alpha: ALPHA OEF 

Cal so ALPHA ON) 
-Turn on graphics: GRAPHICS ON 

(also GRRPHICS OFF) 
-Hardcopy graphics: DUMP GRAPHICS 

(DUMP GRRPHICS #701 ) 
-Save graphics: GSTORE Array (*) 
-Recall graphics: GLORD Array (*) 



NOTES 
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NOTES 



EXTERNRL PLOTTING 

PLOTTER IS 

-Default plotting device is CRT: 
PLOTTER IS 3. "INTERNRL" 

-Program;; can also be di fee ted 
to external plotters (except -For 
graphics control operations) 



PLOTTER IS 7 05 



HPGL 
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NOTES 



EXTERNRL PLOTTING 

■Explicit Plotter C ontro I 

What s HPGL? 

He oj 1 ett -Packard Graph i c s 
Langu age 

■Select pen speed (f ast/slou) 

■ Se lect alternate character 
sets : 
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EXERCISE 34 

Write a program that plots percentage data as a pie-chart graph. 

There are a number of ways to attack the problem, but one way is 
to read the next percent and call a circle-drawing subprogram that 
draws the given percent of a circle. 



Example data : 25, 15, 10, 20, 10, 20, 



Resulting Pie Chart : 
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EXERCISE 35 

Write a program that implements a bar-meter type readout of a changing 
signal . 

Incoming signal values should be serviced by an interrupt service routine 
- in this case, a knob-service routine. 

While in the routine, update the bar-meter by dravn'ng to the right or 
erasing to the left, depending on the new signal value (greater to or 
less than the old signal value). 

(Although this program uses the knob as its signal source, that source 
could easily be data from an HP-IB instrument.) 

Your main program here should consist only of set-up and an endless 
loop. In a more complex application the main program could be exe- 
cuting various other tasks, since updating the display is the responsi- 
bility of the service routine. 

Example readout : 



I I > ! ' ' I ' ' I I ■ 1 I I I ' I ' I i i i » I I I ' ' ' ' ' ' i ' '■ ' ' ■ ' i 

1 2 3 4 

' t -i 
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160, 116, 120) are for 



"EBIT1" 

The f ol 1 ow i ng 1 i ne: 

e d i t i n g . 

The exclamation marks are equivalent to 

t h e s t a n d a r- d E A 8 I C RE M <'■. H R K ') s t a t e rn e n t . 

R e m o ',.' e t h e e x c 1 am at. i o n m ar k , c o r r e c t t h e 
1 i n €■ , t h e n p r- e s s E N T E R t o s t. o r e it. 



10 

20 
30 
4 
50 
60 
70 
30 
90 

1 9 ! P R E H T " T h l s k e y w o r d i s m l s s p e 1 1 e d . " 
110! P R I H T " Y o u r H R M E h e r e . 

120! PRINT Y o u r ft D D R E S S h e r e " 

130 ! 

140 ! 

150 GOTO 190 ! This- is an illegal GOTO at RUN tim 

160 ! 

170 ! 

ISO END 

190 PRINT ! This line must be deleted. 

2 6 G T 1 3 ! S o m u s t t h i s o n e . 



Dl-24 



10 ! SAVE "REVIEW" 

2 R E M P r o g r a m t o c o m p u t e M e an, V a r i a n c e , a n d 

3 R E M S t an d ar- d D e v i at i o n 
40 ! 

50 ! 

6 R E M I n i t i a 1 i z at i o n s e c t i o n 

70 OPTION EASE 1 

80 DIM XU0) 

90 DATA 20,45,13,64,85,97,59,34,72,6 

100 FOR 1=1 TO 10 

110 READ XU) 

120 NEXT I 

130 Sum=0 

1 4 S u m o t ' s q u a r e s = 

150 N urn of i tern s=10 

160 ! 

170 ! 

1 8 R E f'1 C i:i m p u t e ■=■ u m a n d s u m o f squares 

1 9 F R 1 = 1 T H u m o f l t e m s 

2 O S u m = 8 u m + X C I ) 

2 1 S u m o f s q u ar e s = S u m o f s q u ar t s + X ( I :> * X ( I > 

220 NEXT I 

230 ! 

240 ! 

2 5 M e an = 8 u m •■"' N u m o f i t e m s 



Dl-31 



l urn* S u m ■■■■' H u m ofi te m s > •■■• <■. N u m o t l t e m s - 1 > 



» t d d e '■.■' = 3 Q R ( V ar i an c e 



270 

280 GO SUE 3 20 

290 STOP 

3 ! 

3 1 O ! 

320 PRINT "Index " ; TAB (. 1 1 > ; " Dat a" 

3 3 O F R 1 = 1 T N u m o f i t e in s 

340 PRINT TAEC2); I; TAEC 1 1 ) ; X ( I > 

350 NEXT I 

360 ! 

370 PRINT 

3 3 P R I N T " M e an = " ; D R U N D ( M e an , 5 > 

3 9 O P R I N T " V ar i an c e = " ; D R U H B < V ar- i an c e , 5 ;■ 

400 PRINT " 8 1 an d ar- d D e ■■,' i at i o n = " ; B R U H B ( S t d_d -: 

410 RETURN 

420 END 



173 



Dl- 



1 O ' 


20 ' 


t r 1 e n t. 


3 ! 


4 


5 


6 


7 ! 


8') 


9 


1 


KB! 


120 


13 


140 


150 


1 6 ' 


e . 


170 


130 


190 



\ r e t. h e e 



line 130 with 'he program 
! Some i n* eger o ar s 
1 Some real 'jar; 



3 AVE "L00PTIME" 

"h i ; program c an b> 

" o u s e it, r e p '' a : e 
INTEGER One, Two, Thr, 
REAL F o u r , F i m e , S i x 
SET TIME 
leasure F R - H E ' ■ T loop tune. 
F OR 1 = 1 T 1 6 
NEXT I 
Ti rn e 1 = T I M E D R T E 
' \ o w t r y d i f ' t e r e 1 1 1- s t a t e n . e n t 
F OR 1 = 1 T 1 

i +****■* Tei* st at erne r"it goes here. **+*** 
NEXT I 
Ti nie2 = TIMEDHTE 
" h e d i f f e r e n c e b e t w e e n T h e ':■ n >:: t i m * s , d-'ided 



1 - ft,i= 



50 

f EPS Id p 
• i r„ed. 



130, 



S t at e m e n t _t i m e = ( T i m e 
PRINT "Execut , on t i m 
END 



i rn e 1 ') M D 8 S 4 9 O -■" I a O 
s " , 3 1 at e m e n t. t. i ,-,-, € + 1000: 



qrarii 



t i 
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10! £ 

26! 

n o u t 

30 ! 

4 ! 

50 

£0 

70 

80 

90 

1 

1 10 

120 
130 
140 
159 
160 
170 
180 
190! 

2 

210! 
220 ! 
2 3 
240 ! 
250 ! 
260 
270 ! 
280 ! 

2 9 

3 O 
3 1 ! 
320 ! 
3 3 
340 ! 
350 ! 
360 
3 7 O 
33 



AVE "MuNTH_BAY" 

This program takes an input of t h 
p u t o f t h e f o r im 
Month Day, Year 



f o r rn 



Solution 1 

rn m .■-' d d ■-' y y a n d p r o d u c 



OPTION ERSE 1 

DIM Mont h*(12>[ 10] 



Lower bound=l 





o n t 


h 




o n t 


h 




o n t 


h 




3 n t 


h 




j n t 


h 




j n t 


h 




o ri t 


h 




3 H t 


h 




o n t 


h 




o n t 


h 




:■ n t 


h 


M 


3 n t 


h 



$( 1 )=" JANUARY" 


Initial 1 z e n am 


*< 2)=" FEBRUARY" 


1" m n t. h s . 


*C 3)= "MARCH" 




*<; 4;:, = " APRIL" 




*C5)="MAY" 




*C6)=" JUNE" 




*(7)=" JULY" 




*(8)=" AUGUST" 




1(9)= "SEPTEMBER" 




*( 10) = "OCTOBER" 




$(11 )=" NOVEMBER" 




*( 12)=" DECEMBER" 





INPUT "Enter mm -dd,"' 



, S 1 r 1 n g t 



N o w f i n d t h e n u rn b e r o t t. h e rn o n t h . 
A n s w e r * = M o n t h * ( V A L ( S t r ing* ') ) 

Set a pointer past the first ".•■". 
Temp = P0S ( St r i ng$, " -■■' " ) + 1 

S t ar t b u i I d i n g t h e o u t p u t as h o n t h t d ay . 

A n s w e r * = A n s w e r i- & i S t r i n g $ [ T e rn p : P S ( S t r i n g $ C T e m p J , 

A n s w e r $ = A n s w erH" , " 

N o w s e t a p o i n t. e r pi as t t h e s e c o n d " ■■■" " . 
T e m p = T e rn p + P S ( 3 1 1- 1 n g $ C T e rn p ] , " ••■■' " ) 

Add the year information as "19yy". 
A n s 1...1 e r * = A n s w e r t & " 19" ii : S t r i n q $ [ T e rn p ; 2 ] 
PRINT Answer* 
END 



1 ] 
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18 ! SAVE "SCH_RPL" 

20 D I II S e ar c h_ i n * < 1 5 8 ) [100] 

! T h e n e x t 1 i n e d e f i n e s t h 



ched 
40 
58 
60 
70 
S 
90 
1 O 

1 10 

120 
130 



jf th 



Program$= "CIRCLE" 

! R e ad l n t h e fl S C II file u n til e n d - a f 

fl S S I G H i? Pipe TO P r o g r a rn * 

ON END @Pipe GO SUE: Done 

1=0 

REPEAT 

1 = 1 + 1 

ENTER 0Pipe;Search_i r,t< I > 
UNTIL Eof 
N i j in e 1 e rn = I 



-fi 



140 G S U E S e ar- c h_r e p 1 ac e 

150 INPUT "Shall I print t ; ,e entire array? 

160 IF POStS*," y " ) R P S C S * , " Y " > THE N 

178 FOR 1 = 1 TO Nur.i_el em 

ISO PRINT Search_in*( I ) 

190 NEXT I 

208 ELSE 

218 END IF 

220 STOP 

2 3 O D o n e : fl S S I G N P i p e TO* ! S t o p r e ad i 

240 Eof=l 

250 RETURN 

270 ! Append your subroutine starting here. 

230 ! GET "TEMP" 



" , S* 



ng 



Solution 2 



ASCI I f i 1 e to be sear- 



19! SAVE "SCHRPL_SUE" 

2 3 S e ar- c h_r e p lace: ! n e p o s s i b 1 

3 INPUT "Enter the search 

4 INPUT "Enter the teniae 
50 FOR 1 = 1 TO Nurn_elem 

6 X = P S ( S e ar c h_ i n $ <. I ) , A * ',■ 

70 IF X THEN 

30 PRINT "The 1 i ne uas: " 

9 PRINT Search_i n$'. I ) 

a S e ar ch_i n * ( I ':> = S e ar- c h i n * 

10 PRINT "The 1 l ne now i"s: " 

20 PRINT Search_i r.*' I > 

30 PRINT 

40 WAIT .3 

50 ELSE 

60 END IF 

70 NEXT I 

3 PRINT 

90 PRINT 

00 RETURN 

10 END 



s o 1 u t i o n . 
t r i ng " , A* 
stri nq" , B$ 



-1 ](!.:E*t 



arch i n*'.: I > C X + LEN ( A* > ] 
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16 ! SAVE "IFTHENELSE" 



D2-8 



30 

40 
50 
60 
70 
80 
9 

100 



I H PUT "Pie as e e n t e r s o rn e n u m b e r " , N u m b e r 
F R C o u n t = 1 5 T 3 STEP - 1 



i 



IF BIT'; H u m b e r , C o u n t ;■ THE H 

PRINT "1"; 
ELSE 

PRINT "0"; 
END IF 



i 



110 NEXT Count 

120 PRINT 

130 GOTO 20 

140 END 



10! SAVE "SELECTCASE" 

2 I N P U T " E n t e r- a n u m b e r " , N u m b e r- 

30 FOR Count= 15 TO STEP -1 

4 S E L E C T BIT ( N u m b e r , C o u n t ) 

50 CASE 

60 PRINT "O"; 

70 CASE 1 

89 PRINT "1"; 

90 EN II SELECT 
100 NEXT Count 

110 END 



Solution 3 



10 ! SAVE "UPPERCASE" 

20 INPUT "ENTER A STRING", A* 

30 ! 

4 ! Look at one character at a time 

50 FOR 1 = 1 TO LEN'iAf:' 

60 SELECT A*C I , I ] 

7 ! 

80 ! If the character i £ in the range: 

90 CASE "a" TO "z" 

100 ! t h e n s u b t r ac t 3 2 f r o m i t ■" s A S C I I '■> a 1 u i 

110 A*[I, I]=CHR*CHUN(fl$[I, I])-32> 

120 END SELECT 

130 NEXT I 

140 PRINT A* 

150 END 



Solution 4a 
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10 ! SAVE "UPC_LWC" 

2@ ! Fu n c t i ont d e t e r m i n e i, w h e t h e r t h i s p 

ere a;e . 

3 F u n c t i o n * = " L W C " ! E l t h e r U P C o r L W C 

4 ! 

50 DIM fit [80] 

60 INPUT "ENTER A STRING", A$ 

7 ! 

80 ! Look at one character at a time 

90 FOR 1=1 TO LENCfi*) 

108 SELECT H$[ I , I ] 

110 ! 

120 CASE "a" TO "2" 

138 1 If the character i= in range and t 

140 ! then subtract 32 from it's ASCII <.,> 

150 IF Funct i on*="UPC" THEN 

160 At [ I, I ]=CHR*CNUM':. A*[ I , I]>-32> 

170 ELSE 

180 END IF 

190 CASE "A" TO "Z" 

200 ! H o 1...1 t. r y t o s e e i f f u n c t. i o n 1 s L W C : 

210 IF Func t 1 on$= " LWC " THEN 

220 A*[ I , I ]=CHR*(HUN(A*[ 1,1] >+32> 

230 ELSE 

240 END IF 

250 END SELECT 

260 NEXT I 

270 PRINT A$ 

280 END 



roqram 



Solution 4b 

does Lipptrcas 



or 1 ow 



ll Uf 



f 1 .4 n c t i o n i s U P C , 



10 1 


SAVE "REPEAT" 




29 


INPUT "NUMBER?" . 


, Number 


3 


Count =15 




4 3 


REPEAT 




5 


IF BITCH umber, 


, Count ) 


6 


PRINT "1"; 




7 


ELSE 




8 


PRINT " 0"; 




9 


END IF 




1 


C u n t = C u n t - 1 




1 10 


UNTIL Count<0 




120 


PRINT 




130 


END 





Solution 5 



THEN 



10! SAVE "WHILE" 

2 INPUT " N U M B E R ? " , N u m ber 

2 C o u n t = 1 5 

4 WHILE C o u n t > = 

5 IF BIT (Number. Count 

6 PRINT " 1" ; 
70 ELSE 

£0 PRINT "U"; 

90 END IF 

1 C o u r-i t = C o u n t - 1 

110 END WHILE 

120 PRINT 

130 END 



Solution 6 



THEN 
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1 ! 

10 

2a 

3 

40 

5 

60 

7 

30 

99 

1 @ 

1 10 

120 
130 
140 
150 
160 
170 
180 
190 

200 

210 

2 2 
230 
240 
250 
2 6 
270 
2 8 

2 9 

3 

310 
320 
338 
340 
350 
3 6 O 
370 
3 8 

3 9 

4 

410 
429 
430 
440 
450 



JflVE "VAL_REF" 

PRINT " PASS BY VALUE " 
PRINT " I", "FNSql C I) " , "<Do. 

PRINT "--", " " 

FOR 1=1 TO 10 

PRINT I,FNSqlC<I>> 
NEXT I 
PRINT 

! 

I 

PRINT " PASS BY REFERENCE" 

PRINT " I" , "FNSqK I ) " , "<Do> 

PRINT "--"," " 

FOR 1=1 TO 10 

PRINT IjFHSqlCI) 
NEXT I 
PRINT 



Solution 7 



n o t a 1 t e- r p a. £ s- e d p a r a m > 



ter pa; 



fj-ir ' illl 



PASS BY VALUE" 
I", "FNSq2CI.5", 



T r l e s t 



Iter passed p a r a m > ' ' 



i 



PRINT 
PRINT 

PRINT "--"," " 

FOR 1=1 TO 10 

PRINT I ,FNSq2< CI > > 
NEXT I 
PRINT 
! 
I 

PRINT " PASS BY REFERENCE" 
PRINT " I" , "FNSq2C I> " , " <Tn es t 

PRINT "--", " " 

FOR 1=1 TO 10 

PRINT I,FNSq2CI> 
NEXT I 
END 
! 
! 
D E F F N S q 1 C N u m > ! D o e s n o t a 1 t e t- p a s s p a r a m s 

RETURN Hum -2 
FNENH 



al t er passed 



\\ u m 



DEF FHSq2 
N u iyi = N u m ■''• 2 

RETURN Hum 
FNEND 



! Alter 



pai 



d parameter 



179 



1 ! 

10 

2:@ 
3 
49 

5 a 

6 
7Q 
30 
90 

1 
1 10 

120 
130 
140 
150 
166 
170 

1 8 
190 

2 

210 
2 2 
2 3 
240 
250 
260 
270 
2 8 

2 9 

300 

3 1 
320 
330 
340 
350 
360 



;flVE "HPflR" 
INTEGER fl 
R=l 

E=2 ! This is a REfiL number 

C = 3 ! T h i s is a REAL n u m b e r 

i 
i 

P R I H T " M a i n p r o g r am '.,■ a 1 u e s " 
PRINT " H, E, C" 
PRINT fl;B;C 
PRINT 
! 
! 

F 1 PINT " P as s b y •■> a 1 u e : fl , E , C " 
CALL Pr i nt out <; l *fl , l *£ , ( C ) ;.. ! Pass, b 1 
PRINT 
i 



Solution 8 



il US- 



PRINT "Pass by reference: H,E" 

CALL P r i n t o u t < fl , E > ! Pa s s b y refer en c e 

END 



S U E P r i n t. o u t '.: >'. , V , P T I N fl L Z > 
IF NPflR=3 THEN 

PRINT "I n s u b p r a g r am , q o t o p t l o n a 1 p ar am 

PRINT " fl, B, C, "'A, V, Z" 

PRINT fl ; B ; C ; X ; Y ; Z 

PRINT 
EL3E 

P F: I N T "I n s u b p r o q r am , r"i o o p t l o n a 1 p ar am " 

PRINT " fl, E, C, X, Y, no Z" 

PRINT fl;E;C;X;Y 

PRINT 
END IF 

SUE END 
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1 ! 

10 

28 
3 6 
40 
50 
60 
70 
80 
90 
1 8 

1 10 

120 
139 
140 
150 

1 69 
170 
1SQ 
190 

2 

210 
220 
2 3 
246 
250 
268 
270 
2 S 

2 9 

300 

3 1 
3 2 
3 3 
340 
350 
360 
370 
3 8 

3 9 

4 O 
410 
420 
438 



>fiVE "LfiBEL_COM" 
fl=l 
B = 2 

COM fi,B,C 

PRINT " V a 1 u e s in Mai n b e f o r e c a 
PRINT " fl, E, C, L, M, N" 
PRINT fl: B;C;L;M;N 



Solution 9 



1 1 " 



i 

CALL Pri nt out 1 

P R I N T " V a 1 u e s i n M a i n af t e r c a 1 1 

PRINT " fl, E, C, L, M, H" 

PRINT fl;E;C;L;M;N 

! 

CALL P r i t"i t o u t 2 

END 

i 

! 

! 

SUE Print out 1 

COM fl,B,C 

C M ••-' C r y p t o ■■-' L , M , N 

fl = 4 

E = 5 

C = 6 

L = 7 

M = S 

N = 9 

PRINT 

PRINT " F i r s t S u b C M u a 1 u e s " 

PRINT " fl, B, C, L, M, N" 

PRINT fl;E;C;L;M;N 

PRINT 

SUEENH 

i 

SUE Print out 2 

C M •" C r y p t o •■■•' L , M , N 

PRINT 

P R I N T " S s c o n d S u b C M v a 1 u e s " 

PRINT " fl, E, C, L, M, N" 

PRINT fi;B;C;L;M;H 

PRINT 

SUEEND 
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1 ! 


10 


2S 


3 


4 


5 


6 


7 


8 3 


90 


1 


1 10 


120 


130 


140 


150 


160 


170 


ISO 


190 


2 


210 


2 2 


230 


240 


250 


2S0 


2 70 


2 S 


2 9 


3 


3 1 


3 20 


3 3 


340 



SAVE "KEYS1" 

H K E V LABEL " P R I 0_ 1 " , 1 CALL S u b 1 
H K E V 1 LABEL " P R I 0_5 !l , 5 CALL S u b 5 
ON KEY 2 LABEL " PR I 0_1 4 " , 1 4 CALL Subl4 
N K E Y 3 LABEL " A B R T " , 1 5 R E C V E R A b o r t 
Loop: ! 

DISP I , "Mai n" 
1 = 1 + 1 
GOTO Loop 



Solution 10 



i 



fi b o r t 



LIE 



SUE 



1 " 



PRINT "Aborted ope r a t i o n 

STOP 

END 

i 

! 
>ubl 

PRINT "SUE: Prior it 
FOR 1 = 1 T 2 
NEXT I 
SUE END 

! 

Sub5 

PRINT "SUB: Priorit 
FOR 1=1 TO 15000 
NEXT I 

SUE END 
I 

SUB Sub 14 

ON KEY 3 LABEL "STOP" 
PRINT "SUB: Priorit 
FOR 1=1 TO 15000 
NEXT I 
SUEEXIT 
STOP 
SUEEND 



1 5 i j T 3 3 
14" 
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1 ! 
10 

23 
3 
46 
50 
63 
70 
8 
90 

100 
1 10 

120 
138 
140 
150 
160 
170 
180 
190 

200 

210 
2 2 
2 3 
240 
250 
2 6 
270 
2 8 

2 9 O 

300 

310 

3 2 
3 3 
340 
350 
3 6 
370 
3 8 

3 9 

4 

410 
420 



SAVE "PRIORITIES" 

ON KEY LREEL "CALL P5%5 CALL Pri5 
ON KEY 2 LABEL "CALL P 1 " , 1 CALL Pri 10 
ON KEY 4 LAEEL "CALL P 1 4 " , 1 4 CALL Pri 14 
ON KEY 5 LAEEL "GSUE P 1 5 " ', 1 5 GOSUE Pri 15 
C = C+1 

Ii ISP " IN MAIN, COUNTER = ";C 
WAIT . 1 
G T 5 O 
Pri 15: ! 

FOR X=l TO 26 

D I S P " I N S Li B R U T I H E , P R I K I T Y 15"; 
WAIT . 1 
NEXT X 
RETURN 
END 
i 
! 
t 
SUB Pr-i 5 

FOR X=l TO 20 

D ISP "I N S lj b p r o q t- a m , P R I R I T Y 5 : " ; 
WAIT .15 
NEXT X 
SUEEND 
I 

SUB Pri 10 

ON KEY 4 LABEL "* 
FOR X=l TO 20 

disp " 

WAIT .15 

NEXT X 
SUEEND 
I 

SUB Pri 14 

! Note that, almost 
ON KEY LAEEL " * 
ON KEY 2 LABEL "* 
FOR X=l TO 20 
DISP " 
WAIT .15 
NEXT X 
SUEEND 



Solution 11 



*******",, 1 CALL Pri 14 

I n S u b p r o g r am , P R I R I T Y 1 1 



any priority tisre can- 
r******" , i CALL Pr-i 5 
:•**** + *" i call Pr i 1 a 



■Is t h e k e :.> s e r 



: r '■> i c 



I n s u b p r o g r am , PRI R I T Y 14: " ; . 



1 ! SAVE "BEEP" 

10 ON KNOB .5 GOSUE Beeper 

20 DISP "Main: " ; X 

3 X = X + 1 

4 G T 2 
41 .! 

! 

Y=AES(KNOBX) 
DISP "Service: " 
BEEP Y*10, . 2 
WAIT .2 
RETURN 



Solution 12 



50 Beeper: 

60 

61 

7u 

71 

8 

98 END 
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1 ! 

10 

2 
3Q 

4 

5 
60 

7 

8 
90 F' 

100 
1 10 

120 
1 36 
140 
159 



;hVE "MAIN" 

LOnnSUE ALL FRi 
ON KEY LABEL 
ON KEY 2 LABEL 



Solution 13 & 14 



ON KEY 
OH KEY 
C = C+1 
DISP " 
WAIT . 
GOTO 5 
t- i 1 5 : 



LABEL 
LABEL 



"KE : 
ALL 
ALL 
ALL 



' LiSUB 



'SUBS' 
P5",' 

P 10" 

P 1 4 " 
P 1 5 " 



CALL Pri 5 
10 CALL Pri 10 
CALL Pri 14 



14 

15 



LU 



SUE Pri 15 



IN MAIN, COUNTER =' 



RETURN 
END 



FOR X=l TO 20 

DISP "IN SUBROUTINE, 

WAIT . 1 

NEXT X 



PRIORITY 15 



10 ! STORE "KEYSUBS" 

190 SUE Pri 5 

20O FOR X=l TO 20 

210 D I S P " I N S u b p r o g r am , P R I R I T Y 5 : " ; X 

229 WAIT .15 

230 NEXT X 
240 SUBEND 

250 ! 

260 SUB Pri 10 

270 ON KEY 4 LABEL "********", 1 CALL Pri 14 

2S0 FOR X=l TO 20 

2 9 D I S P " I n S u b p r o g r am , P R I R I T Y 10: " ; X 
300 WAIT . 15 

310 NEXT X 
320 SUBEND 

3 30 ! 

340 SUE Pri 14 

3 50 ! N o t e t h at a 1 m o s t an y p r i o r l t y h e r e c an - eel = 
360 ON KEY LABEL " ********", 1 CALL Pn5 

370 ON KEY 2 LABEL "********", 1 CALL Pri 10 

3 8 FOR I-: =1 TO 20 

2 9 DISP " In subprogram, PRIORITY 14:"; 

400 WAIT .15 

4 10 NEXT X 
420 SUEEND 



the 
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1 ! SAVE "GETLOADSUB' 



10 

GET 
29 
38 

40 
50 
60 

7 

8 
90 

100 
110 

120 
138 
140 
150 
160 
170 
180 
196 
2 
210 
220 
230 
240 
250 
260 
270 
280 
290 



! Put some variables in cerumen so the 1 - 



COM .••'fl.-- One, Two 
COM Three, Four 
! 

! H e x t as s i g n s o m e 
i 

DATA 1,2,3,4,5,6 

READ n e , T w o , T h r e e , F o u r , F i >■.> e , S i 

i 



tl ues t o 



if- 1 ab 1 



I 

P R I H T " E e f o r e CALL", n e ; T w o ; T h r e e ; F o u r ; F i v e ; 

CALL 8ub_f'irst 

! 

PRINT "A t" t e r- C A L L " , n e ; T w o ; T h r ee;F o u r ; F i >j e 

! 

I 

DEL SUE Sub_fii-st 

PRINT "A f t e r DELETE", n e ; T w o ; T h r e e ; F o u r ; F i <j s 

! 

i 



! 51 



LOAD SUE ALL FROM "SUE" 

CALL Sub_load 

PRINT " A f t e r L A D S U E " , n e ; T w o ; T h r ee;F o u r ; F i <■.■< > 

! 

! 

! Now GET a sub at End and execute next line 

GET " GETSUE " , End , Next_l i ne 
3 N e x t _ 1 i n e : ! This 1 i n e i s e x e c u t e d n e x t . 
310 CALL Sub_get 

3 2 P R I H T " A f t e r- GET " , n e ; T w o ; T h r ee;F o u r ; F i v e ; : 
330 END 
340 ! 
350 ! 

3 6 O End: S U E S u b_f i r s t 
3 7 P R I H T " I N S U E S u b_f i t- s t " 
380 SUBEND 



Solution 15 

d o n •" t g e t c 1 o b b e r e d b y 



it not in COM) 



10 ! RE-SAVE "GETSUE" 

20 End: SUE Sub_get 

30 PRINT "In SUE Sub_get 

40 SUEEND 



10 ! RE-STORE "SUE" 

20 End: SUB Sub_l oad 

30 PRINT "In SUE Sub_load" 

40 SUEEND 
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SAVE "fiSCII_URT" 

W r 1 t e s t o " TEST " an d r e ad s b ac k 1 n . 

T h i s ' ,' e r s 1 o n 1 s m o r e e n h an c e d t h an t h e 

o n t h e s 1 ides. . . m o r e r o o rn . 



D3-46 



10 
1 1 

12 
29 
30 

4 
41 

5 
5 

7 

30 



CRERTE RSCI I "TEST", 10 



ASSIGN C'Narrie TO "TEST" 
OUTPUT H-Name; "ED" , "SUE' 
OUTPUT i? Name; "ALVIH" 

ASSIGN C-Hame TO "TEST" 
ENTER i?Name;flf ,Et, C* 
PRINT A*,E*,C* 
END 



1 ! 

10 

20 
30 

4 6 

5 
SO 
7 
3 
9 

1 
110 
120 

130 
140 
150 
160 
170 
180 
190 

2 

219 
220 
2 3 @ 
240 
250 
260 
270 
28 



SAVE "UPDATE" 

! This p r o g r • a m u p d a t e s the file " L D _ D A T A ' 

DIM A* C20] 

! Create the destination file 

CREATE ASCII " HEW_HATA " , 1 

i 

I 

A S S I G H l« 1 d T " L D_D A T A " 

ASSIGN i?New TO "NEU__DATA" 

! 

FOR 1=1 TO 20 

E N T E R e 1 d ; A $ ! Re ad t Pi e d at a its m 

SELECT A* 

C A S E " M I S I S S I P P I " ! C h e c k f o r u p d at e 
fl*= "MISSISSIPPI " 
PRINT R$;TAE(20:j; I 
CASE "NABRHSKA" ! Check for update 
A$=" NEBRASKA" 
PRINT A*; TAB < 20) ; I 
CASE ELSE 
END SELECT 
! 

LIT P U T @ N e w ; A * ! W r- 1 t e the updated data 
NEXT I 
i 
! 

ASSIGN i? Pipe TO * 
ASSIGN ['Hew TO * 
END 
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10! SAVE "WRITE_SIN" 

29 DEG ! Set. degrees mode 

30 ON ERROR GOTO 50 ! In case fil 
40 CREATE EDflT " S I NDflT ,r , 1 , 800 

50 OFF ERROR 

60 ! 

70 ASSIGN C-Pipe TO "SINDAT" 

86 OPTION EASE 1 

90 DIM Vol ts( 100) 

100 ! 

110 ! 

120 CALL C o m p ute( V o 1 t s < * > > 

130 ! 

140 ! 

150 OUTPUT ©Pipe; Vol t s < * .:< 

160 ASSIGN @Pipe TO * 

170 END 

1 8 ! 

190 ! 

200 S U E C o m p u t e ( fl r r ■ a. y < * ) > 

210 ! C o in p u t e 1 6 '•.■' a 1 u e s o f 3 

220 ! Results g o t o A r r ay 

230 1=1 ! I is the 180 step 

240 REPEAT 

250 X = < I ':> * 3 6 * 3 ■•-' 1 ! 3 c y c 

268 A t- r ay <', I ) = S I N < V, > * 1 

270 1=1+1 

2S0 UNTIL I>100 

290 SUEEND 
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e ::< l s t 



c y c 1 e s o f a s i n t 

c o u n t e r 

es, 100 points 



Exercise 18 



10 ! 
20 ! 

3 

4 
50 
68 
70 
3 
9 

1 
1 10 
120 

130 
140 
150 
160 
170 
ISO 

1 9 

2 

210 
2 2 



J AVE "BLD_nATA" 

OPTION BASE 1 
DIM A$(20)C20] 



DATA MISISSIPPI , HflERfiSKA, COLORADO , OREGON , KANSAS , MISSOURI , OHIO 

DATA OREGON, MISISSIPPI , NORTH DAKOTA, SOUTH DAKOTA, WYOMING, NEVADA 

DATA MISISSIPPI , MABRASKA, NEBRASKA, MISSISSIPPI , PENNSYLVANIA, VIRGINIA 

DATA NEW YORK, FLORIDA 



DISP "Preparing Data" 
FOR 1=1 TO 20 
READ fl*<n 
NEXT I 
i 

D I S P " L o ad i r. g s u b p r o g r am " 
LOADSUB ALL FROM " MR I TEEDAT " 

D I S P " C alii n g s u b p r o g r- am " 
CALL W r i t e_d at a < A * ( * ) ) 
END 
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10 ! 
20 ! 
3 

40 ! 
50 

6 ! 

7 ! 
80 ! 
90 

1 

1 10 
120 
130 
140 ! 
150 i 
166 ! 
170 
186 
190 

2 

210 
220 
230 
240 
250 



STORE " w ri tsbdat. " 

S U E W r- l 1 1 _d at a <: D at a* < * .:■ > 
OPTION EASE 1 



T h i s £ e g m * n t a 1 1 e m p t s t o s e 1 u ( :< t h e f i 

Ii I S p " S e 1 1 i n g u p d at a f i 1 e " 
OH ERROR GOTO 120 
PURGE "EDflT_DRTfl" 
CRERTE BERT " BHRT_DRTH " , 20 , 25 
OF r F ERROR 
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This segment writes the data to th 
DISP "Wr i t i ng data to t i 1 e" 

ASSIGN wPipe TO " BDFlT_DRTR " 

FOR 1=1 TO 20 

OUTPUT i? Pi pe, I;Bata*( I J 
PRINT I ,Hata*< I> 

NEXT I 

ASSIGN SPipe TO * 

SUB END 



f i 1 e 
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10! 

29 ! 
30 
4 
50 
60 
70 
8 
90 

1 
110 

120 
130 
140 
150 
160 
170 
171 
172 
180 

200 

220! 
230 ! 
240 ! 
241 

2 5 

2 6 
270 
280 ! 
290 ! 

3 

3 1 
3 2 
3 3 
340 
350 
360 
370 



SAVE "RANDJJPDT" 

OPTION ERSE 1 

DIM fi*<20) [20] 

I 

! 

DISP "Reading Lata" 

PR I NT " Rec or d " ; THE ( 1 9 ) ; " 1 1 em " 

fl S S I G N C" P ipe T " E D fl T_D fl T fl " 

FOR 1=1 TO 20 

ENTER tfPipe, I ; A*< I) 
PRINT IiTfiE(!0);fl$(D 

NEXT I 

! 

CALL Update CR*(*> , @Pi pe> 
END 



SUE Updat e (. Dat a$ <: * ':> , (?F i 1 e 
OPTION EASE 1 
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T h i s s e g m e n t u p d at e s t h e t i 1 e . 
LOOP 

I N P U T " F: e c o t- d n u m b e r t o u p d at e ? ( w h e n d o n e > " , N u m 
EXIT IF Nurr, = 

I H PUT " E n t e t- t h e n e w l t e m : " , D at a* ( N u m ) 

Write the new data to the file 

D I S P " W r i t i n g d at a t r, f i 1 e " 

U T P U T @ F i 1 ■=■ , N u ni i D at a* < N u m > 
PRINT Hum, Datal(Num) 

1 N PUT " N e x t r e c o r d n u m b e r t o u p d at e ? <. 9 w h e n d o n e > " , N u m 
END LOOP 

ASSIGN @Fi 1 e TO * 

SUBEND 
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10 ! 
29 ! 
3 
40 

5 

6 
70 

8 B 

9 

1 

1 10 
120 

130 
140 
150 
160 
170 

1S0 

190 

2 

210 
2 20 
2 3 
240 
2 50 ! 
260! 
270 
2 8 

2 9 

3 

3 1 ! 
3 2 0! 
3 3 
340 
3 5 
3 6 
3 7 
3 8 
3 9 



tiAVE "TRRF_END" 

OPTION EASE 1 
DIM H*(20)[2O] 



DISP "Reading Data" 
PRINT "Record" ; TABC 1 ,' ; " 1 1 en," 
ASSIGN Capipe TO " EDflT__DflTA " 
f i N E N D I? P i p e G T C ont i nue ' **************** 
1=1 ! **************** 

L.OOF !******* + ******** 

ENTER @P i pe , I; A* C I ;■ 
PRINT I ; TABC 10>; A*< I > 
I — I + 1 '***** ;: * * * * **■+•** * 

END LOOP i ******* ********* 

! 

f o n t i n u e : C A L L U p d at. e C H t ■: * ■ , (? P i p e :■ !****** 

END 

! 

! 

! 
£ U B U p d at e < D at a* C * :> , i? F i 1 e > 

OPTION EASE 1 

T h i s ■=■ e g m e n t u p d at e s t hi e file. 
LOOP 

INPUT "Record nun, bet- to update'"' CO when d ,: 
EXIT IF Num=e 

I N PUT "En t e r t h e n e w i t e m : " , D a t a * ', H u m ;■ 

Write the new data to the file 

DISP "Nr i t i ng dat a to f i 1 e" 

U T P l J T i? F i 1 e , N u m ; D a t a * C H u in ) 

PRINT Hum, Dat a* C Hum > 
END LOOP 

A S S I G H C» F i 1 e T * 
i 

SUEEND 
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Hum 



10 

20 

3 

4 

5 

6 

7 

8 

9 

100 

1 10 
120 

130 
140 
150 
160 
170 
ISO 
190 

200 

210 
220 

2 3 
240 



! SAVE "SPEED" 
OPT I OH EASE 1 
This Prog demo = a ED AT file with & w-'o 
an EOF at the end of data file "NUM_DAT". 
Also, F R M AT ON ■ ' OFF is ill u s t r at e d . 

The yar i able Fass_nuni indicates whether wu 
ha'.'e set up the disc and computed the ar r ■; 
p r e ,.,' l o u s 1 ;,■' . 1 1 l s i n ~ N s o l t s ' ' a 1 u e i s 
1 p r e s e r u e d f ' r o n, i- u n t o " u n . 
i 

DIN Array:: 1200 :> 
INTEGER Pass_r,um 
I 

IF P a s s _ n u m = THEN P a s = _ n u m = 1 
i 

L oop_agai n : ! 

P R I N T " H u m b e r " ; P a s s _ --, u n i , 
i 

! This loop sets up the data file 
i 

IF F'ass_nurii= 1 THEN 

H I S p " S e 1 1 i n g u p d i e c , p 1 e as e w a i t 
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di sk 
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250 
26S 
270 
280 
290 

3 

3 1 
3 2 
3 3 
340 
356 
360 
370 
380 

3 9 

4 

410 
420 
4 30 
4 48 
4 50 
4 60 
4 70 
480 

4 9 @ 

5 9 
510 
528 
530 
540 
550 
560 
570 
580 
590 

6 
610 
6 2 O 
6 3 B 
6 4 
650 
6 6 
670 

6 S 
690 
> " 

7 

710 
720 
730 
740 
750 
760 
770 
780 
790 

8 O 
8 1 
820 
8 3 
840 
850 
8 6 
8 7 O 
8 8 



OH ERROR GOTO 270 
PURGE "NUM_DflT" 
OFF ERROR 
! 

CREATE BDflT " HUM_DAT ", 1 , 20000 
END IF 



T hi s s e c t i o n t o q q ' 



FOR MAT OH/ OFF 



IF Pass_num<==4 THEN 

R S S I G H @ P i p e TO " H U M_D fl T " ; F R M fl T H 
PRINT " FORMAT OH" 
ELSE 

fl S S I G H @ P i p e TO " H U M_B A T " ; F R M fl T F F 
PRINT " FORMAT OFF" 
END IF 

CONTROL @Pi ps , 7; 1 , 1 ! Set EOF to byte # 1 
! 
i 
IF Pass__num=l THEN 

D I S P " C a 1 c u 1 at i n g d at a l t e rn s " 
FOR 1=1 TO 1200 

fl r r a;,' ( I > = R H B * 1 S ■-■ ( R N D * 1 ) 
NEXT I 
END IF 



i 



SELECT Pass_num 
CASE 3,4 

C N T R L @ P i p e , 7 ; 1,20 U S 

P R I N T " M o u e d E F t o 6 n d o f f i 1 e " 

! Reg 7&8 of @Pipe puts an EOF mark 
! at the 20000th byte of HUM_DAT 
END SELECT 



D I S P " W r i t i n g d at a t o d i s c " 
T0=TIMEDATE 

I F P a s. s _ n u rn MOD 2=1 THE H ! ( 1 1 " s D D > 

P R I N T " u t p u 1. 1 i n q e n t l r e ar r ay (12O0 e 1 e m e n t s '.> " 
U T P U T i? P i p e , 1 ; fl r- r ay < * ':> , 

ELSE 

P R I H T " u t p L4 1 ting 12 9 e 1 e m e n t s o n e at a t i m e . ( 1 2 t ak 

FOR 1=1 TO 120 

OUTPUT i? Pi pe; Array; I ) , 
NEXT I 
END IF 



t o o 1 o n q 



STATUS §Pi pe, 6; I 

P R I H T " T o t a 1 b y t e s o n d at a file = " ; I 

ASSIGN ©Pipe TO * 



T1=TIMEDATE 

BEEP 3500, . 5 

DISP 

P R I H T " D i s c T t- an s f e . T i m e = " ; D R U N D < T 1 - T , 4 > ; " s e c . " 

BEEP 

P as s_fi u rn = P as s_n u rn + 1 

PRINT 

IF P as s_n u rn < =6 THEN G T L o o p_aq a i n 

END 
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10 ! 


2@ 


3 


4 


50 i 


6 @ ! 


70 ! 


8 


9 


1 


110! 


120 1 


1 3 


140 


150 ! 


169! 


170 


180 


190 


20 ! 


210 


220 


2 3 


2 40 



SAVE "REfiD_SIH" 
OH ERROR GOTO prob 
OPTION EASE 1 
DIM VoltsdOO) 
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! J u s t i n 



Read from d i sc f i 1 e 
ASSIGN 0Pipe TO "SINE AT" 
ENTER ©Pi pe; Vol t s < * > 
ASSIGN C«Pipe TO * 

Write to CRT 
ASSIGN ©Pipe TO 1 
OUTPUT @Pi pe; Vol tsU) 

W r l t e t o P r i n T e r 
ASSIGN 0P ipe TO 701 
OUTPUT 0Pi pe; Vol ts(») 
STOP 

Ft- obi em: EEEP 

PRINT "You probably didn't ere 
P R I H T " R u n p r o g r a rn W R IT E _ S I N t 
END 



f i 1 e S I N L A T , 
Li i I d t. he filt 



10 > 

20 ! 

3 ! 

4 ! 
50 ! 
60 ! 
7@ 
SO 

9 ! 

100 1 

110! 

120 
ISO 

140! 

150 

1 6 
170 ' 
130 
190 

2 00 ' 
2 1 ! 

220 ! 
2: 3 '• 
2 40 ! 
250 



SAVE 



IMG EXPLS 



D4-25 



T h is " p r o q r am " ill u s t r at e s s e o e r a 1 rn *• 1. h o d i 
: f u s i n g I M AGE w l t h I ■•' s t a t e rn e n t s . 



IMAGE 10(3611. 2H > 

OUTPUT 1 USING 70; 1 , 2, 3, 4, 5,6, 7; S; '- 1 ; 10 
N o t e e i t h e r c o rn m as o r s e mi 2 ar e K . 



PRINT USING I mage 1 ; 6. OS 

magel : IMAGE /, "Vol ts = ",K, ■■- 
Note that the IMAGE statement car, be 
referred to by line 1 abe 1 ... anywhere . 



Image$=" , 6X, 2D. 2 BE, 

OUTPUT 1 US I NG 1 mage* ; 1,2,3,4,5 
Note that a string oar i ab 1 e can be used 
to hoi d the i mage spec i f i cat i ons. 
Note also that the data was forced to 
c o n f o r m t o t he l m ag e : it cl o e s n ■'' t 1 o o k 
at al 1 like 1,2,3,4, or 5 ' 

END 
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16! 

26 
30 
4 
50 
66 
7 
80 
90 

1 S 

110 

120 
130 
140 
156 
160 
170 
180 
190 

2 

210 
2 2 
2 3 
240 
250 
260 
270 
2 8 

2 9 

3 @ 
310 
3 2 

3 3 
340 
35tf 
360 
370 
380 
396 

4 

410 
420 
430 
440 
450 

4 6 O 
470 
480 
490 

5 

510 
520 
530 
540 
550 
560 
570 
580 
590 

6 

610 
620 
6 3 
640 



SAVE 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 
IM 
PR 
PR 
PR 
PR 
PR 



INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
I NT 
INT 
INT 
AGE 
INT 
INT 
INT 
INT 
INT 



"SPECIFIERS" D4 " 26 

" * * * Digit s p e c i f i e r e >; am p 1 e s : " 

"Number=1234: IMAGE 9Z", 

USING "9Z" ; 1234 

"Number=1234: IMAGE 9D", 

USING "9D"; 1234 

" * * * R ad i x e x am p 1 e s : " 

"Number=1234: IMAGE 4Z.4D", 

USING "42. 4 D" ; 1234 

" Number- = 1 . 236 : I MAGE 4D . 2D " , 

USING "4D. 2D" ; 1 . 236 

" C n o t i c e r o u n d l n g ) " 

" * * * E x p o n e n t e x am p 1 e s : " 
" Number- 1 234 : I MAGE 3D . DE " , 
USING "3E.DE" ; 1234 
"Number=1234: IMAGE 3D.HESZ", 
USING " 3D.DESZ" ; 1234 
"Number=1234: IMAGE 4D.DESZ", 
USING "4D. DESZ" ; 1234 
"Number=1234: IMAGE 2H.DESZZZ", 
USING "2D.DESZZZ"; 1234 
" ( n o t i c e r o u n d i n g ) " 

" * * * S i g n e x am p Is;:" 

" Number— 1234: I MAGE S2D . DE " , 

USING "S2D. DE"; 1234 

" N u m b e r =12 34: I M AGE M 2 D . D E " , 

USING "M2D.DE"; 1234 

" Number—- 1234 : I MAGE M2D ■ DE " , 

USING "M2D.DE" ; -1234 

" * * * Bin ar y e x am pi e s " 

" Numbers= 94 ,126: I MAGE B , E " , 

USING "B";94, 126 

" N u m b e r = 1 9 8 3 7 : I M AGE W " , 

USING "W" ; 19 887 

' ' H u m b e r = 12 ( f or m f e e d ) : IMAGE B " , 

USING "B";12 

" * * * S t r- i n g e x am p 1 es" 
"String= 'text text'" 
"IMAGE'SA " , TAB (SI), 
USING "3A" ; "text text " 
" < n o t e t r u n c at i o n > " 

" S t r- i n g = ' t e x t t e x t " " 
"IMAGE 20A" , TAB (31 ) , 
USING "20A" ; "text text " 

"Stri ng= "text , "text " " 
"IMAGE"4A,7X,4fl ", TAB ( 31 ':> , 
USING "4A, 7X,4fl"; "text " , "text" 

" Number = 1.23" 

USING "#,6A,E,6A,E,9A,8X"; "IMAGE ",34, "Volts=",34, ",3X,D.3B" 

USING 590; 1.23 

"Vol ts=" , 3X,L. 3D 

" * * * R e c o t~- d c o n t r o 1 e :■■■: am p 1 e s : 
"SEND EOL: Number-- 123.4, 5.678" 
"IMAGE 4D. 2D, 2x,4D. 2D " ; CHR* < 1 > 
USING "4D. 2D,2x, 4D. 2D"; 123.4,5. 678 
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650 
6 6 O 
678 
6 8 

6 9 

7 @ 
719 
7 2 
7 3 
740 
750 
760 



F 
F 

f 
F" 
F 
F 
F 
F 

e: 



INT 
INT 
I NT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
D 



"SUPPRESS EOL: Number 1= 1 
"Number 2= 5 . 678 " 
" Number 1 IMAGE #,L.SD,3X" 
"Number 2 IMAGE D.3D" 

USING "#,D.3D,3X"; 1.234 
USING "D. 3D"; 5. 678 

"Form- feed: IMAGE @ " 
USING "i?" 



10! SAVE "REF_FfiC" 

2 OPTION EASE 1 

DIN fit- r a', 1 ( 4 S > , I m aq e $ [ 5 O ] 

4 DATA 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 1 9 , I 1 , 1 2 , 1 3 , 1 4 , 1 c 

50 DATA 21,22,23,24,25,26,27.28,29,30,3 1,3: 

60 DATA 41,42,43,44,45,46,47,48 

70 FOR 1=1 TO 48 

8 READ Array:; I > 

90 NEXT I 

1 00 Image$="24(S2D. 4D, 10X, S2D. 4D, ■' ) ,! 
1 1 U T P U T 1 USING I m a g e * ; A r r a ' > >■. * > 
120 END 
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18, 1 ' 



2U 



8 4 , 



4 



10 

2 

3 

4 

50 
6 
70 
80 
90 

1 

1 10 

120 
130 
140 
150 
160 
170 
180 
190 

2 

2 10 
2 20 
2 3 
2 40 
250 
2 60 



1 SAVE "SIN_IMAGE" 

H E R R R G T P r o b 1 e m ! J u s t i n c as e . . . 

OPTION BASE 1 

DIM Vol t s( 100;' 
I n ag e 1 : IMAGE 2 @ ( 5 (. 2 D . 3 D , 3 X > , .-' > 
I r i ag e 2 : IMAGE 1 ( 1 < 2 D . 3 D , 2 X > , ■■'■ > 
i 
i 
1 R e aid +"' r o m d iic til e 

ASSIGN OPipe TO " SINDAT" 

ENTER i? Pi pe; Vol ts(*) 

A S S I G N C d P i p e T * 
i 

1 Write to CRT 

ASSIGN if 1 Pipe TO 1 

U T P U T C» P i p e U S I N G I m a g e 1 ; V o 1 t s i. * ■ 

i 

1 U r i t, e t o P r i n t e r- 

A S S I G N I? P l p e T 7 1 

U T P U T C" Pipe LI S I H G 1 m a g e 2 ; V o 1 t s v * 

STOP 

i 

Problem: EEEP 

F P I N T " V o u p r o b ab 1 y d i d n - 1 c r- e at e file S I H D A T , 
P PINT " R u n p r- o g r am U R I T E_S I N t o b u i 1 d t h e f l 1 i 
END 
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10! SAVE "KBDjUUT" 
20 DIM R$[50] 

3 9 U T P U T 2 U SING " # , K " ; ,[ E d i t and 

40 ENTER 2;R* 
50 PRINT A* 
60 END 



D4-29 



Ldd to th 



t e: 



t. h 



t y p e d ■ 



10 ! 

20 
30 
48 
50 
60 
70 
80 
90 

1 
1 10 

120 
130 
140 



;:flVE "READ_CRT" 
DIM fl$[50] 

U T P U T 2 U S I N G " # , K " ; " C R T & X " ! E x s >: u t e C R T 
U T P U T 2 U SING " # , K " ; " i T " ! P u i h t o p o f f o r rr 
REPEAT 
! Read the displa; 

PRINT TflEXYC 1, 1 >; 
ENTER l;fll ! R e ad t h e s c r e e n . 

C o u n t == C o u n t + 1 

DISP fl* 



D4-30 



n d s c r o 1 1 d o w f"i o n e 1 i n e 
! Set read pos i t i on . 



OUTPUT 2 

WRIT .15 
UNTIL Count =60 
END 



I H G " tt , K " ; " 



1 down 



10! SAVE "0N_KED" 

20 DIM Ke;,'$C20] 

30 CONTROL 2, 7; 2 

40 ON ERROR GOTO 60 

50 ! 

6 ON KED ALL GO SUE KeysMC 

70 Key$=" " 

30 Main: 1=1+1 

DISP I,Kev*,NUM<Key*[ 1 ] > 

GOTO Main 
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y 

1 
110 ! 

1 2 K e K> s '■ j ■: 

130 

140 

150 END 



Keu*=KED* 

IF Key$="l*t 
RETURN 



THEN STOP 
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10 ! 


2 6 


3 


4 


50 ! 


6 ! 


7 ! 


3 


9 


1 


1 10 


120 


1 30 


140! 


150 ! 


160! 


170 


130 


190 


2 ! 


210! 


2 2 


2 30 


2 40 ! 


250 ! 


260 


2 70 


2 3 


290! 


3 


3 1 Q 


O ci. L" 1 

3 3 O 



SAVE " INSTRUMENT" 

ON ERROR GOTO Problem ! Just in ca; 
OPTION EASE 1 
DIM Vol t. £ .:. 100:. 



I n ■£■ e r t e d 1 i n e £ t o r e ad t h ■=■ v o 1 t m e t e r . 
A S 3 I G N C" F r o m d ■..-■ m T 7 5 
A S S I G N <P T o d >.,' n i TO 7 05 
U T P U T C" T o d u m ; " F 1 R 7 D 4 9 T 1 " 
FOR 1 = 1 T 1 
E N T E R 1 1" F r- o m d m m ; V o 1 t s <; I . . 
NEXT I 



W r i t g t o d i s c f l I e 
ASSIGN (?Pipe TO "SINHAT" 
U T P U T i? P i p e ; V o 1 t s < * ) i p e w t - \ t. p t. r, 
ASSIGN C d Pipe TO * 

Write to CRT 
ASSIGN tfPipe TO l 
OUTPUT C-Pipe; Vo i t s <'.. * > 

W r i t e t o P r i n t e r- 
ASSIGN i?Pipe TO 701 
OUTPUT i? Pi pe; Vo I t s C * > 
STOP 

Problem: EEEP 

PRINT "You may haoa a problem with t 

PRINT "Error N u m b e r - ; ' , E R R N 

END 
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i f"i s t r u m 



10! SAVE "SRQ_SVC" 

2 ON IHTR 7 GO SUE Srqsyc 

3 E N ABLE I N T R 7 ; 2 ! E n a b 1 e S R l n t e r r u p t : 

31 i 

4 O M a l n : D I S P I 

50 1=1+1 

60 GOTO Main 

70 ! 

30 ! 

9 S r q s ', ' c : D e >,■> _ s t a t u s = S P L L > : 7 1 > 

1 d P R I N T " S t at i.4 s r e t u r n e d : " , D t u_s t at u a. 

1 19 RETURN 

120 END 
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10! 

28 

3 

40 
59 
68 
7 
30 
9 

100 
1 10 

120 
1 3 
140 
150 
160 
170 
180 
190 

200 

210 
220 
230 
240 
250 
260 
270 
280 
296 
306 
310 
320 
330 
340 
350 
360 
370 
380 
390 

4 

410 
420 
4 30 
440 
450 
460 
478 
4 8 8 

4 9 

5 
510 
520 
530 
540 
558 
560 
570 
580 
590 
608 
610 
620 

6 3 
640 



SAVE "POTPOURRI " 

ON KEY 1 LABEL "GSB PI ", 1 GO 

ON KEY 2 LABEL "GSB P2",2 GO 

ON KEY 3 LABEL "GSB P3",3 GO 
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;UE ft- 
;UE Pr 
;UB Pr 



N K E Y 19 LABEL " A B R T " , 1 5 R E C V E R 
ON ERROR RECOVER Pri 15 
ON KNOB .1,4 CALL Knobs'..'.; 
ON IHTR 7,15 CALL Srqs',": 
ENABLE INTR 7 ; 2 
! 
i 
Main: C=C+1 

DISP " IN MAIN, COUNTER = " ; C 

NflIT . 1 

CALL Nest U > 

GOTO Main 

I 

Pri 15: ! 

F R X =1 TO 5 O O 
D I S P " R E C V E R E D t o M a i n " ; X 
NEXT X 
GOTO Main 
! 
I 
Pr i 1 : FOR 1 = 1 TO 500 

DISP "AT PRIORITY 1 " , I 

NEXT I 

RETURN 

! 

FOR 1=1 TO 508 

DISP "AT PRIORITY 2" , I 

NEXT I 

RETURN 



i 1 
i 2 
i 3 
Pr- i 



Pri 



Pri: 



! 

FOR 1=1 TO 508 
DISP "AT PR I OR IT- 
NEXT I 
RETURN 



, I 



END 
I 
! 
S U E S r q s '■.■' c 

F R X =1 TO 5 O 

D I S P " I N S u b p r o g r am , PRI R I T 
NEXT X 
SLIBEND 
! 
! 

SUE Knobs'.,": 
DISABLE 

FOR X=l TO 5 80 

DISP "IN Knobsuc, interrupts di 
NEXT X 
ENABLE 
SUBEND 



SUE Nest (Nest > 

DISP "Nesting 1 eye I 

ALLOCATE Temp ( 1 00 > 

Nest=Hest+l 

WAIT .05 

CALL Nest (Nest) 
ill BE ND 



v 1 ' 



■abied", 
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1 ! SPVE "CIRCLE" 

10 DEC 

20 GIN IT 

39 GRAPHICS OH 

4 6 Y = 50 

5 X = 5 

6 R = 4 

70 MOVE X,Y 

8 F F: I=@ T ; 

90 DRAW X+R*COi 

100 NEXT I 

HO END 



D5-6 



Y+R*SIH( I 



1 1 


SAVE "SIH 1" 


10 


DEC, 


20 


G I N I T 


30 


GRAPHICS 


6 U 


MOVE 0,5 


7 


F F: X = TO 


SO 


DRAW X,SIH 


9 


HEXT X 


1 


END 



D5-7 



D5-13 



1 ! 


SAVE "FOUR SIH" 


10 


DEG 


20 


G I N I T 


3 O 


GRAPHICS OH 


4 


VIEWPORT 0,60,0,45 


5 


GOSUE 130 


6 


VIEWPORT 65, 1 30,0, 45 


7 


GOSUB 130 


SO 


VIEWPORT 0, 60, 55, ISO 


90 


GOSUE 130 


100 


VIEWPORT 65, 130,55, 100 


1 10 


GOSUE 130 


120 


STOP 


1 30 


WINDOW 0, 360, -1.5,1.5 


140 


FRAME 


150 


MOVE 0,0 


ISO 


FOR X=0 TO 36 


170 


DRAW X,SINOO 


ISO 


NEXT X 


190 


RETURN 


2 


END 
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1 ! SAVE "F0UR_SIN1" 

10 DEG 

28 GINIT 

30 GRAPHICS ON 

40 VIEWPORT 0,60,0,45 

5 G S IJ E 1 3 

6 V I E W P R T 65, 1 3 ,0,45 

7 O G S U E 1 3 O 

80 VIEWPORT 0, 60,55, 100 

9 @ G S U B 1 3 

100 VIEWPORT 20,100,20,30 

110 GOSUE 130 

120 STOP 

1 30 W I HDOW 3,360,-1.5, 1.5 

140 FRAME 

150 M V E 0,0 

1 fa F R X = T 3 6 

170 DRAW X,SIHCX) 

ISO NEXT X 

190 RETURN 

200 END 
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1 ! 


SAVE "EGG" 




10 


DEG 




20 


G I N I T 




3 


GRAPHICS OH 




31 


WINDOW 6, 10 0,0, 


1 00 


4 


V = 50 




50 


X = 50 




6 


R = 40 




70 


M V E X + R * C 3 '■. I : 


■ , Y + R * S I N < I 


SO 


F R I = T 3 6 




9 


DRAW X + R * C U S c I ; 


. , y + r*sih<: I 


1 O O 


NEXT I 




110 


END 
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10 ! 
20 

3 

4 

5 

6 

7 
3 
90 

1 
1 10 

120 
130 
140 
150 
160 
170 
1 8 O 
190 



SAVE "LINES" 
G I N I T 

GRAPHICS ON 
CSIZE 4 

H = 4 . 5 ! F u d q e f ac % o r f o r s h r i n k i n q f r am e s . 
! 

! S t. e p t h r o u g h 1 O 1 i n e t y p e s 
FOR L_type=10 TO 1 STEP -1 
! 

LINE TYPE L_ty f :.e, 10 
i 

V I E W P R T L_t y p e * N , 1 3 3 - L_t y p e * N , L_t ..... p e * H , 1 - L t 

FRAME 

I MOVE 1,0 ! Scoot the label oyer a bit. 

LINE TYPE 1 ! Select line type 1 for labels 

LABEL "LINE T Y P E " ; L_t y p e 

NEXT L_type 

! 

END 
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19! 


SAVE "SIN LINE" 






2 


HEG 






30 


G I HIT 






4 


GRAPHICS ON 






50 


! 






60 


VIEWPORT 0,6O 


< O 


, 45 


7 


L t upe=l 






8 


Rpt=5 






9 


G S U E 2 9 






1 


! 






1 10 


VIEWPORT 65, 1 


3 


,0,45 


120 
130 


L t.u P e = 3 
Rpt=S 






140 


U S u B 2 9 






150 


i 






160 


VIEWPORT 0,6 


cr i 


5 , lOO 


170 


L type =8 






180 


Rpt=l 1 






190 


G S U E 2 9 O 






2 


i 






210 


VIEWPORT 6 5, 1 


3 


, 55, 100 


2 2 


L_type=5 






2 30 


R p t = 9 






240 


G ID 3: U B 2 9 O 






2 50 


i 






260 


STOP 






2 70 


! 






280 


! 






2 9 


WINDOW U,360, 


- 1 


...1,1. -J 


3 


LINE TYPE 1 






3 10 


FRAME 






320 


M V E , O 






3 3 


LINE TYPE L_t 


!:-' P 


e , R p T. 


3 40 


i 






3 5 


FOR X=0 TO 36 


U 




3 6 


DRAW X, Slh-KX ' 






3 7 


NEXT X 






3 8 9 


RETURN 






3 9 


E N D 
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10 ' 


3 A V 


2 


G 


3 


G 


4 


G 


5 


i 


3 


W 


7 


G 


3 


! 


9 


i 


1 00 


1 


1 10 


F 


120 


G 


130 


H 


140 


E 



E "SEMILOG" 
I N I T 
CLEAR 
RAPHIC3 OH 

1 u n its X a :■.: i s , 
I H D W , 10,0, 3 
R ID 1,0 

St ep up Y a. is b; 

I'uu get 3 Y 1 i ne: 

I'ljij get 1 u X 1 in. 
OR H=l TO 9 
RID , 1 , , L G T ■.: H ') 
EXT H 
Nil 
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in l t 



a- i =■ 



3 T u n i t s 
•' ti;. G R I D s ' m t, . 
.;ufru GRID itrnt 



200 



10! SAVE "LOGLOG" 

26 GIHIT 

30 GCLERR 

40 GRAPHICS ON 

50 WINDOW 0,4,0,3 

SO FOR N=l TO 9 

70 GRID 1, 1,LGT<N 

80 NEXT H 

90 END 
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lgtoi: 



1 ! 


SAVE "LABELS" 


10 


GCLERR 


2 8 


G I N I T 


3 


GRAPHICS ON 


40 


WINDOW 0,5.5,0,5. 


50 


AXES 1, 1 


60 


MOVE 2,5 


70 


LABEL "Graph Titl 


S 


FOR X=0 TO 5 


90 


HOVE X,0 


1 


LABEL X 


1 10 


NEXT X 


120 


FOR Y=0 TO 5 


130 


MOVE 0, V 


140 


LABEL Y 


150 


NEXT Y 


160 


ALPHA OFF 


170 


PAUSE 


1 80 


END 



05-27 



1 ! 


SAVE " LABELS 1" 




10 


GCLEAR 




20 


G I N I T 




3 


GRAPHICS ON 




40 


WINDOW -1,5.5,- 


-1,5. 


50 


AXES 1 , 1 




60 


MOVE 2,5 




7 


LABEL "Graph T 


i t 1 e l! 


71 


L R G 6 




S 


FOR X=0 TO 5 




90 


MOVE X, -. 1 




1 


LABEL X 




1 10 


NEXT X 




1 1 1 


LORG 8 




120 


FOR Y=0 TO 5 




130 


MOVE 0,Y 




140 


LABEL Y 




150 


NEXT Y 




160 


ALPHA OFF 




170 


PAUSE 




1S0 


END 
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Solution 33 



10 ! 


20 


30 


4 


50 ! 


S ! 


7 ! 


3 


9 


1 W 


1 10 


120 


130! 


140 


150 


160 


170 


171 


1S0 


190 


2 


210 


2 2 


2 3 


240 


25 


2 6 


2 7 


2 8 9 


2 9 


31 


3 1 


3 2 


3 3 


340 


3 5 


3 6 @ 


3 7 


380 


3 9 


400 


410 


420 


430 


440 


450 


4€0 


470 


480 


4 9 


5 


510 


52 


5 3 


540 


550 


560 


570 



iflVE "PLOT_SIH ,i 

OH ERROR GOTO pr-ob 
OPTION EASE 1 
DIM Volts U 06) 



Just i n 



Read from di sc t" i 1 e 
ASSIGN 0Pipe TO "SIHBAT" 
ENTER C'Pipe; Vol t s(.*:> 
A S S I G N @ P i p e T u * 
CRL L P 1 ot_s i n < Vo 1 t s '.' * > , 180! 
PAUSE 



BEEP 
V o u p r o b ab 1 y d i d n '' t c t- e at e file S I N D fl T . " 
R u n p f- o g r am W RITE SIM t o b u i 1 d t h e file. 



Probl em 

PRINT 

PRINT 

STOP 

END 

! 

i 
SUB PI ot_s i n( Bat >: * ) , N) 

G CLEAR ! Initialize and 

ALPHA OFF 

G I N I T 

GRAPHICS ON 

WINDOW -20, 110,-12,12 

i 

! Br aw axes 

CLIP 0,110,-10,10 

A X E S 10,1,0,8 

CLIP OFF 

I 

! Graph label 

MOVE 40, 10 

LABEL "Sir, Ua<,e Data" 

! 

! Label X axis 
L R G 6 

FOR H = TO N STEP H-'5 
MOVE X,0 
LABEL X 
NEXT X 
i 

! Label V axis 

L R G 3 

FOR Y=-10 TO 18 STEP 2 

MOVE 0,V 

LABEL Y 
NEXT Y 
! 

! Draw N dat a po i nt s 

M V E 0,0 

FOR 1=1 TO N 

DRAW I , Bat >. I ) 
NEXT I 
! 

SUB EH IT 
SI BEND 
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10! 


20 


3 9 


4 


50 


fa 


7 


8 


9 


1 


1 10 


1 2 


1 3 


140 


1 5 


1 60 


170 


1 8 


1 9 


2 


210 


220 


2 3 


240 


250 


2 fa 


270 


2 8 


2 9 


3 


3 1 


3 2 


3 3 U 


340 


350 


3 € 


370 



SAVE "ROTATE" 

! Set. up the plotting space 

G I N I T 

DEG 

GRAPHICS ON 

ALPHA OFF 

A = S I N < 6 > * 2 

SHOW 6,50,0,65 

i 

MOVE 15,25 

I MOVE 10, A- 2 

Fen=l 

I 

i 

L P ! F o r e w e r 

Angl e=Angl e + 5 

PIVOT Angle 

C ALL T i- i an g 1 e < P e n , A ) ! D r aw 
I 

P e n = - P e n 

C ALL T r i a n g let P e n , A > ! Erase 

P e n = - P e n 
END LOOP 
I 

END 

i 
I 

SUE Tr i angl e < I , A) 
PEN I 

X = A ■■•'' 2.5 ! A p p r o ;; i rit at e 1 y t h e c e n t e r 
i 

I M V E -10,- X ! M o '-..' e t o a n g 1 e A 

I DRAW 20,0 ! Draw to angle E 

I DRAW -10, Pi ! Draw to angle C 

I DRAW -10, -A ! Draw to angle A 

I M V E 10, ';■< ! M o <■> e b ac k t o c e n t e r 
SUBEND 
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10 ! 

2 

3 

4 
50 
60 

7 

8 

9 

1 
i 10 
120 

130 
140 
150 

1 6 

170 
1 8 

1 9 

2 O 
210 
220 
230 
240 
250 
260 

2 7 
28 
290 

3 
3 1 
3 2 
330 
340 
350 

': : 6 

370 
380 

3 9 

4 O 

410 
420 
430 
440 
450 
4 6 
470 
4 8 

4 9 O 

5 
510 
520 
5 3 
540 



;;fiVE "PIE_CHART" 

C M C u r-_d e g , X , V , R ad i u ; 

Cur_deq=0 

X -=65 ! X axis location of circle center 

V=50 ! V axis location of circle center 

OH ERROR GOTO Done 

GRAPHICS OH 

G 1 H I T 

G C L E fl R 

DEG 



Set C i re 1 e r ad i us 
DATA 30 
READ Radius 

! 

! Percent ( tot al = 10O> 
DATA 25,15,10,20,10,20 
! 

LOOP 

R E A Ii P e r c e n t 

CALL C i r c 1 e ( P e r c e r 1 
END LOOP 
:me: END 



SUE Ci re I e<P:< 

COM Cur_deq, X, V, R 

MOVE X,Y 

i 

FOR I=Cur_deg TO Cur_deg+ v P+360X 1 > 

d r fl u :■< + r * c o s ( i ;■ , v + f + s i n •; i > 

HE XT I 

! 

! Following is an attempt to label graph. 
2 = I - '■ C u r _ d e g + < P * 3 6 0-100 ) - C u r _d e g ':> ■■■" 2 
MOVE X + R* 1 . 2*C0S < Z > , Y + P* 1.2*31 H <:. Z ) 
SELECT Z ! C h a.r- q e L R G ac c j r d i n g t ■: 

! c urt ent quadrant . 
C fl S E 90 T 1 8 

LORG 7 
CASE ISO TO 270 

LORG 9 
CASE 270 TO 360 

LORG 3 
CASE ELSE 
LORG 1 
END SELECT 

LABEL USING "DD, A" ; P, 
i 

C u r d e q = I - 1 ! Re m e m b e r I is o n e g r e at e r ! 
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JUEEND 
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Solution 35 



10! 

26 

3 

4 

50 

fa 

70 
3 
90 

1 
110 

120 
130 
140 
150 
160 
170 
180 
190 

2 

210 

2 2 
2 30 
2 40 
250 
2 6 
2 70 
2 8 

2 9 

3 

3 1 
3 2 
3 3 
340 
350 
360 
370 
380 

3 9 

4 
410 
420 
430 
440 
4 50 
460 
470 
480 
4 9 

500 

510 
520 
530 
540 
550 
560 
570 
580 
590 

6 

6 1 
620 



SAVE "BARJIETER" 
G I N I T 

GRAPHICS ON 
VIEWPORT 17,117,25,75 
FRAME 

SHOW -1,5,-1,2 
CLIP 0,4,0, . 1 
AXES . 1,0,0,0, 10,0,5 
CLIP OFF 
! 
! 
F R J = . T 4 . 

PEN -1 

DRAW J-. 1, -. 4 

PEN 1 

LABEL VAL$(J> 
NEXT J 
MOVE l,-.7 
LABEL "Voltage" 
! 

OH KNOB .01 GO SUE Bar 
Xol d=0 
X n e w = 
MOVE 0, . 2 
CLIP ON 
C LIP 0,4,0,1 
Main: GOTO Main 



B ar : ! S e r <■,< i c e K n o b i n t e r r u p t s an d u p d at e 

! the display. 
! 

X o 1 d = X n e w ! S a',' e t h e o 1 d p o i n t e r 

X n e w = X n e w + K N B X * . 1 ! Make a ne w o n e 
S i g n = S G N k X n e w - X o 1 d > 

PEN Sign 
IF NOT Sign THEN Sign=l 
! 
i 

! E e e p f o r o >■> s r r a n ge a n d u n d e r r a r i g e . 
SELECT Xnew 
CASE >4 

BEEP 15O0, .2 

X n e w = 4 
CASE <0 

BEEP 150,. 2 

X n e u = 
END SELECT 
! 
i 

! Now draw a "bar" of vertical lines from 
! t n e o 1 d p o s i t i o n t o t h e n e w o n e . 
F R I = X o 1 d T X n e w S T E P < S i g n * . 2 j 
MOVE I , . 2 
DRAW I,. 6 
NEXT I 
! 
! 
RETURN 



END 
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